[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/feedmail.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/feedmail.el |
Date: |
Mon, 16 May 2005 07:16:34 -0400 |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/mail/feedmail.el,
Juanma Barranquero <=