Mercurial > emacs

comparison lisp/mail/mh-e.el @ 21922:714591991067

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mh-quit): Undo 3/3 change (and the subsequent fix).
author Richard M. Stallman <rms@gnu.org>
date Sun, 03 May 1998 07:34:07 +0000
parents 674be6359675
children cbe304a26771
comparison
equal deleted inserted replaced
21921:ea04bf51647c 21922:714591991067
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.18 1998/03/08 00:25:49 rms Exp kwzh $") 63 (defconst mh-e-RCS-id "$Id: mh-e.el,v 1.19 1998/04/15 06:31:29 kwzh Exp rms $")
64 64
65 ;;; Code: 65 ;;; Code:
66 66
67 (provide 'mh-e) 67 (provide 'mh-e)
68 (require 'mh-utils) 68 (require 'mh-utils)
426 (t 426 (t
427 (apply 'mh-write-msg-to-file message (cdr mh-last-destination)) 427 (apply 'mh-write-msg-to-file message (cdr mh-last-destination))
428 (message "Destination: %s" (cdr mh-last-destination)))) 428 (message "Destination: %s" (cdr mh-last-destination))))
429 (mh-next-msg)) 429 (mh-next-msg))
430 430
431
432 (defun mh-quit () 431 (defun mh-quit ()
433 "Quit the current mh-e folder. 432 "Quit the current mh-e folder.
434 Start by running mh-before-quit-hook. Restore the previous window 433 Start by running mh-before-quit-hook. Restore the previous window
435 configuration, if one exists. Finish by running mh-quit-hook." 434 configuration, if one exists. Finish by running mh-quit-hook."
436 (interactive) 435 (interactive)
437 (run-hooks 'mh-before-quit-hook) 436 (run-hooks 'mh-before-quit-hook)
438 (mh-update-sequences) 437 (mh-update-sequences)
439 (mh-invalidate-show-buffer) 438 (mh-invalidate-show-buffer)
440 (quit-window) 439 (bury-buffer (current-buffer))
441 (and mh-show-buffer 440 (if (get-buffer mh-show-buffer)
442 (get-buffer mh-show-buffer) 441 (bury-buffer mh-show-buffer))
443 (bury-buffer mh-show-buffer))
444 (if mh-previous-window-config 442 (if mh-previous-window-config
445 (set-window-configuration mh-previous-window-config)) 443 (set-window-configuration mh-previous-window-config))
446 (run-hooks 'mh-quit-hook)) 444 (run-hooks 'mh-quit-hook))
447 445
448 (defun mh-page-msg (&optional arg) 446 (defun mh-page-msg (&optional arg)