[Emacs-diffs] Changes to emacs/lisp/mail/feedmail.el

[Juanma Barranquero]

Index: emacs/lisp/mail/feedmail.el
diff -c emacs/lisp/mail/feedmail.el:1.22 emacs/lisp/mail/feedmail.el:1.23
*** emacs/lisp/mail/feedmail.el:1.22    Mon Sep  1 15:45:29 2003
--- emacs/lisp/mail/feedmail.el Mon May 16 11:16:34 2005
***************
*** 1835,1841 ****
              (setq blobbet (file-name-nondirectory blobby))
              (if (string-match "^[0-9][0-9][0-9]-" blobbet)
                  (let ((water-mark))
!                   (setq water-mark (string-to-int (substring blobbet 0 3)))
                    (if (> water-mark high-water) (setq high-water 
water-mark))))
              (setq q-cnt (1+ q-cnt)))
             (t (setq q-oth (1+ q-oth)))
--- 1835,1841 ----
              (setq blobbet (file-name-nondirectory blobby))
              (if (string-match "^[0-9][0-9][0-9]-" blobbet)
                  (let ((water-mark))
!                   (setq water-mark (string-to-number (substring blobbet 0 3)))
                    (if (> water-mark high-water) (setq high-water 
water-mark))))
              (setq q-cnt (1+ q-cnt)))
             (t (setq q-oth (1+ q-oth)))