Mercurial > hg > xemacs-beta

comparison lisp/mh-e/mh-e.el @ 165:5a88923fcbfe r20-3b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b9
author cvs
date Mon, 13 Aug 2007 09:44:42 +0200
parents 3bb7ccffb0c0
children
comparison
equal deleted inserted replaced
164:4e0740e5aab2 165:5a88923fcbfe
61 61
62 ;;; Original version for Gosling emacs by Brian Reid, Stanford, 1982. 62 ;;; Original version for Gosling emacs by Brian Reid, Stanford, 1982.
63 ;;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. 63 ;;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985.
64 ;;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu 64 ;;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu
65 ;;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu 65 ;;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu
66 (defconst mh-e-RCS-id "$Id: mh-e.el,v 1.3 1997/06/11 19:25:57 steve Exp $") 66 (defconst mh-e-RCS-id "$Id: mh-e.el,v 1.4 1997/06/26 02:31:00 steve Exp $")
67 67
68 ;;; Code: 68 ;;; Code:
69 69
70 (provide 'mh-e) 70 (provide 'mh-e)
71 (require 'mh-utils) 71 (require 'mh-utils)
922 (message (if maildrop-name 922 (message (if maildrop-name
923 (format "inc %s -file %s..." folder maildrop-name) 923 (format "inc %s -file %s..." folder maildrop-name)
924 (format "inc %s..." folder))) 924 (format "inc %s..." folder)))
925 (setq mh-next-direction 'forward) 925 (setq mh-next-direction 'forward)
926 (goto-char (point-max)) 926 (goto-char (point-max))
927 (let ((start-of-inc (point))) 927 (let ((start-of-inc (point))
928 (coding-system-for-read mh-folder-coding-system))
928 (if maildrop-name 929 (if maildrop-name
929 ;; I think MH 5 used "-ms-file" instead of "-file", 930 ;; I think MH 5 used "-ms-file" instead of "-file",
930 ;; which would make inc'ing from maildrops fail. 931 ;; which would make inc'ing from maildrops fail.
931 (mh-exec-cmd-output mh-inc-prog nil folder 932 (mh-exec-cmd-output mh-inc-prog nil folder
932 "-file" (expand-file-name maildrop-name) 933 "-file" (expand-file-name maildrop-name)