Mercurial > emacs

comparison lisp/mail/mh-e.el @ 8278:f856f00b1e32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mh-folder-mode): Use local-write-file-hooks.
author Richard M. Stallman <rms@gnu.org>
date Mon, 18 Jul 1994 18:04:45 +0000
parents 3cd45985c88c
children 417a04871329
comparison
equal deleted inserted replaced
8277:824fb42f33ab 8278:f856f00b1e32
50 50
51 ;;; Original version for Gosling emacs by Brian Reid, Stanford, 1982. 51 ;;; Original version for Gosling emacs by Brian Reid, Stanford, 1982.
52 ;;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. 52 ;;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985.
53 ;;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu 53 ;;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu
54 ;;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu 54 ;;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu
55 (defconst mh-e-RCS-id "$Header: mh-e.el,v 3.15 94/04/13 11:36:48 gildea Exp $") 55 (defconst mh-e-RCS-id "$Header: /home/fsf/rms/e19/lisp/RCS/mh-e.el,v 1.2 1994/04/13 20:42:10 rms Exp rms $")
56 56
57 ;;; Code: 57 ;;; Code:
58 58
59 (provide 'mh-e) 59 (provide 'mh-e)
60 (require 'mh-utils) 60 (require 'mh-utils)
278 (if mh-narrowed-to-seq (mh-widen)) 278 (if mh-narrowed-to-seq (mh-widen))
279 (mh-process-commands mh-current-folder) 279 (mh-process-commands mh-current-folder)
280 (mh-set-scan-mode) 280 (mh-set-scan-mode)
281 (mh-goto-cur-msg) ; after mh-set-scan-mode for efficiency 281 (mh-goto-cur-msg) ; after mh-set-scan-mode for efficiency
282 (mh-make-folder-mode-line) 282 (mh-make-folder-mode-line)
283 t) ; return t for write-file-hooks 283 t) ; return t for local-write-file-hooks
284 284
285 285
286 (defun mh-first-msg () 286 (defun mh-first-msg ()
287 "Move to the first message." 287 "Move to the first message."
288 (interactive) 288 (interactive)
770 'mh-last-msg-num nil ; Number of last msg in buffer 770 'mh-last-msg-num nil ; Number of last msg in buffer
771 'mh-previous-window-config nil) ; Previous window configuration 771 'mh-previous-window-config nil) ; Previous window configuration
772 (setq truncate-lines t) 772 (setq truncate-lines t)
773 (auto-save-mode -1) 773 (auto-save-mode -1)
774 (setq buffer-offer-save t) 774 (setq buffer-offer-save t)
775 (make-local-variable 'write-file-hooks) 775 (make-local-variable 'local-write-file-hooks)
776 (setq write-file-hooks '(mh-execute-commands)) 776 (setq local-write-file-hooks '(mh-execute-commands))
777 (make-local-variable 'revert-buffer-function) 777 (make-local-variable 'revert-buffer-function)
778 (setq revert-buffer-function 'mh-undo-folder) 778 (setq revert-buffer-function 'mh-undo-folder)
779 (or (assq 'mh-showing minor-mode-alist) 779 (or (assq 'mh-showing minor-mode-alist)
780 (setq minor-mode-alist 780 (setq minor-mode-alist
781 (cons '(mh-showing " Show") minor-mode-alist))) 781 (cons '(mh-showing " Show") minor-mode-alist)))