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)))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
