Mercurial > emacs

comparison lisp/mail/mh-e.el @ 14341:2fcbb7422170

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mh-get-new-mail): Delete format call inside message.
author Karl Heuer <kwzh@gnu.org>
date Thu, 25 Jan 1996 01:02:59 +0000
parents 069791dced1e
children 92e5bb38381e
comparison
equal deleted inserted replaced
14340:bf1d862f3673 14341:2fcbb7422170
58 58
59 ;; Original version for Gosling emacs by Brian Reid, Stanford, 1982. 59 ;; Original version for Gosling emacs by Brian Reid, Stanford, 1982.
60 ;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. 60 ;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985.
61 ;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu 61 ;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu
62 ;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu 62 ;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu
63 (defconst mh-e-RCS-id "$Id: mh-e.el,v 1.10 1996/01/04 23:45:17 kwzh Exp erik $") 63 (defconst mh-e-RCS-id "$Id: mh-e.el,v 1.12 1996/01/20 02:47:33 erik Exp kwzh $")
64 64
65 ;;; Code: 65 ;;; Code:
66 66
67 (provide 'mh-e) 67 (provide 'mh-e)
68 (require 'mh-utils) 68 (require 'mh-utils)
863 ;; Return in the current buffer. 863 ;; Return in the current buffer.
864 (let ((point-before-inc (point)) 864 (let ((point-before-inc (point))
865 (folder mh-current-folder) 865 (folder mh-current-folder)
866 (new-mail-p nil)) 866 (new-mail-p nil))
867 (with-mh-folder-updating (t) 867 (with-mh-folder-updating (t)
868 (message (if maildrop-name 868 (if maildrop-name
869 (format "inc %s -file %s..." folder maildrop-name) 869 (message "inc %s -file %s..." folder maildrop-name)
870 (format "inc %s..." folder))) 870 (message "inc %s..." folder))
871 (setq mh-next-direction 'forward) 871 (setq mh-next-direction 'forward)
872 (goto-char (point-max)) 872 (goto-char (point-max))
873 (let ((start-of-inc (point))) 873 (let ((start-of-inc (point)))
874 (if maildrop-name 874 (if maildrop-name
875 ;; I think MH 5 used "-ms-file" instead of "-file", 875 ;; I think MH 5 used "-ms-file" instead of "-file",
878 "-file" (expand-file-name maildrop-name) 878 "-file" (expand-file-name maildrop-name)
879 "-width" (window-width) 879 "-width" (window-width)
880 "-truncate") 880 "-truncate")
881 (mh-exec-cmd-output mh-inc-prog nil 881 (mh-exec-cmd-output mh-inc-prog nil
882 "-width" (window-width))) 882 "-width" (window-width)))
883 (message 883 (if maildrop-name
884 (if maildrop-name 884 (message "inc %s -file %s...done" folder maildrop-name)
885 (format "inc %s -file %s...done" folder maildrop-name) 885 (message "inc %s...done" folder))
886 (format "inc %s...done" folder)))
887 (goto-char start-of-inc) 886 (goto-char start-of-inc)
888 (cond ((save-excursion 887 (cond ((save-excursion
889 (re-search-forward "^inc: no mail" nil t)) 888 (re-search-forward "^inc: no mail" nil t))
890 (message "No new mail%s%s" (if maildrop-name " in " "") 889 (message "No new mail%s%s" (if maildrop-name " in " "")
891 (if maildrop-name maildrop-name ""))) 890 (if maildrop-name maildrop-name "")))