… | |
… | |
40 | # the following non-trivial FileNameCallback takes care |
40 | # the following non-trivial FileNameCallback takes care |
41 | # of some subject lines not detected properly by uulib: |
41 | # of some subject lines not detected properly by uulib: |
42 | SetFileNameCallback sub { |
42 | SetFileNameCallback sub { |
43 | return unless $_[1]; # skip "Re:"-plies et al. |
43 | return unless $_[1]; # skip "Re:"-plies et al. |
44 | local $_ = $_[0]; |
44 | local $_ = $_[0]; |
|
|
45 | |
|
|
46 | return $1 if /(\S+\s+IMG_\d+.jpg)/i; |
45 | |
47 | |
46 | # the following rules are rather effective on some newsgroups, |
48 | # the following rules are rather effective on some newsgroups, |
47 | # like alt.binaries.games.anime, where non-mime, uuencoded data |
49 | # like alt.binaries.games.anime, where non-mime, uuencoded data |
48 | # is very common |
50 | # is very common |
49 | |
51 | |