/[emacs]/emacs/lisp/mail/feedmail.el
ViewVC logotype

Diff of /emacs/lisp/mail/feedmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by miles, Mon Sep 1 15:45:29 2003 UTC revision 1.23 by lektu, Mon May 16 11:16:34 2005 UTC
# Line 1835  the counts." Line 1835  the counts."
1835                (setq blobbet (file-name-nondirectory blobby))                (setq blobbet (file-name-nondirectory blobby))
1836                (if (string-match "^[0-9][0-9][0-9]-" blobbet)                (if (string-match "^[0-9][0-9][0-9]-" blobbet)
1837                    (let ((water-mark))                    (let ((water-mark))
1838                      (setq water-mark (string-to-int (substring blobbet 0 3)))                      (setq water-mark (string-to-number (substring blobbet 0 3)))
1839                      (if (> water-mark high-water) (setq high-water water-mark))))                      (if (> water-mark high-water) (setq high-water water-mark))))
1840                (setq q-cnt (1+ q-cnt)))                (setq q-cnt (1+ q-cnt)))
1841               (t (setq q-oth (1+ q-oth)))               (t (setq q-oth (1+ q-oth)))

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26