Mercurial > emacs
comparison lisp/mail/rmailsum.el @ 8635:a241401a67ff
(rmail-summary-output-menu): New command.
(rmail-summary-mode-map): Add Output and Input with menu of files.
(rmail-summary-rmail-update): Check whether rmail-buffer is dead.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 26 Aug 1994 06:55:43 +0000 |
| parents | 1e68efcc6936 |
| children | b30c35c8e7ed |
comparison
equal
deleted
inserted
replaced
| 8634:187df0aff719 | 8635:a241401a67ff |
|---|---|
| 590 (unwind-protect | 590 (unwind-protect |
| 591 (progn | 591 (progn |
| 592 (select-window window) | 592 (select-window window) |
| 593 (rmail-show-message msg-num)) | 593 (rmail-show-message msg-num)) |
| 594 (select-window owin)) | 594 (select-window owin)) |
| 595 (save-excursion | 595 (if (buffer-name rmail-buffer) |
| 596 (set-buffer rmail-buffer) | 596 (save-excursion |
| 597 (rmail-show-message msg-num))))))))) | 597 (set-buffer rmail-buffer) |
| 598 (rmail-show-message msg-num)))))))))) | |
| 598 | 599 |
| 599 (defvar rmail-summary-mode-map nil) | 600 (defvar rmail-summary-mode-map nil) |
| 600 | 601 |
| 601 (if rmail-summary-mode-map | 602 (if rmail-summary-mode-map |
| 602 nil | 603 nil |
| 665 (define-key rmail-summary-mode-map [menu-bar] (make-sparse-keymap)) | 666 (define-key rmail-summary-mode-map [menu-bar] (make-sparse-keymap)) |
| 666 | 667 |
| 667 (define-key rmail-summary-mode-map [menu-bar classify] | 668 (define-key rmail-summary-mode-map [menu-bar classify] |
| 668 (cons "Classify" (make-sparse-keymap "Classify"))) | 669 (cons "Classify" (make-sparse-keymap "Classify"))) |
| 669 | 670 |
| 671 (define-key rmail-summary-mode-map [menu-bar classify output-menu] | |
| 672 '("Output (Rmail Menu)..." . rmail-summary-output-menu)) | |
| 673 | |
| 674 (define-key rmail-summary-mode-map [menu-bar classify input-menu] | |
| 675 '("Input Rmail file (menu)..." . rmail-input-menu)) | |
| 676 | |
| 670 (define-key rmail-summary-mode-map [menu-bar classify output-inbox] | 677 (define-key rmail-summary-mode-map [menu-bar classify output-inbox] |
| 671 '("Output (inbox)..." . rmail-summary-output)) | 678 '("Output (inbox)..." . rmail-summary-output)) |
| 672 | 679 |
| 673 (define-key rmail-summary-mode-map [menu-bar classify output] | 680 (define-key rmail-summary-mode-map [menu-bar classify output] |
| 674 '("Output (Rmail)..." . rmail-summary-output-to-rmail-file)) | 681 '("Output (Rmail)..." . rmail-summary-output-to-rmail-file)) |
| 1107 (let ((rmail-delete-after-output nil)) | 1114 (let ((rmail-delete-after-output nil)) |
| 1108 (call-interactively 'rmail-output-to-rmail-file))) | 1115 (call-interactively 'rmail-output-to-rmail-file))) |
| 1109 (if rmail-delete-after-output | 1116 (if rmail-delete-after-output |
| 1110 (rmail-summary-delete-forward nil))) | 1117 (rmail-summary-delete-forward nil))) |
| 1111 | 1118 |
| 1119 (defun rmail-summary-output-menu () | |
| 1120 "Output current message to another Rmail file, chosen with a menu. | |
| 1121 Also set the default for subsequent \\[rmail-output-to-rmail-file] commands. | |
| 1122 The variables `rmail-secondary-file-directory' and | |
| 1123 `rmail-secondary-file-regexp' control which files are offered in the menu." | |
| 1124 (interactive) | |
| 1125 (save-excursion | |
| 1126 (set-buffer rmail-buffer) | |
| 1127 (let ((rmail-delete-after-output nil)) | |
| 1128 (call-interactively 'rmail-output-menu))) | |
| 1129 (if rmail-delete-after-output | |
| 1130 (rmail-summary-delete-forward nil))) | |
| 1131 | |
| 1112 (defun rmail-summary-output () | 1132 (defun rmail-summary-output () |
| 1113 "Append this message to Unix mail file named FILE-NAME." | 1133 "Append this message to Unix mail file named FILE-NAME." |
| 1114 (interactive) | 1134 (interactive) |
| 1115 (save-excursion | 1135 (save-excursion |
| 1116 (set-buffer rmail-buffer) | 1136 (set-buffer rmail-buffer) |