Mercurial > emacs
comparison lisp/mail/rmailsum.el @ 8911:3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
(rmail-new-summary): Call rmail-summary-construct-io-menu.
(rmail-summary-mode-map): New menu items 'Input Rmail File' and
'Output Rmail File'.
(rmail-summary-output-to-rmail-file): New arg 'file-name'. If it
non-nil, call rmail-output-to-rmail-file.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 19 Sep 1994 05:03:02 +0000 |
| parents | b30c35c8e7ed |
| children | 6616ea991c4a |
comparison
equal
deleted
inserted
replaced
| 8910:964b419c227a | 8911:3abf3f2ef6cf |
|---|---|
| 672 '("Output (Rmail Menu)..." . rmail-summary-output-menu)) | 672 '("Output (Rmail Menu)..." . rmail-summary-output-menu)) |
| 673 | 673 |
| 674 (define-key rmail-summary-mode-map [menu-bar classify input-menu] | 674 (define-key rmail-summary-mode-map [menu-bar classify input-menu] |
| 675 '("Input Rmail file (menu)..." . rmail-input-menu)) | 675 '("Input Rmail file (menu)..." . rmail-input-menu)) |
| 676 | 676 |
| 677 (define-key rmail-summary-mode-map [menu-bar classify input-menu] | |
| 678 '(nil)) | |
| 679 | |
| 680 (define-key rmail-summary-mode-map [menu-bar classify output-menu] | |
| 681 '(nil)) | |
| 682 | |
| 677 (define-key rmail-summary-mode-map [menu-bar classify output-inbox] | 683 (define-key rmail-summary-mode-map [menu-bar classify output-inbox] |
| 678 '("Output (inbox)..." . rmail-summary-output)) | 684 '("Output (inbox)..." . rmail-summary-output)) |
| 679 | 685 |
| 680 (define-key rmail-summary-mode-map [menu-bar classify output] | 686 (define-key rmail-summary-mode-map [menu-bar classify output] |
| 681 '("Output (Rmail)..." . rmail-summary-output-to-rmail-file)) | 687 '("Output (Rmail)..." . rmail-summary-output-to-rmail-file)) |
| 1104 (define-key (current-local-map) | 1110 (define-key (current-local-map) |
| 1105 "\C-c\C-c" 'rmail-summary-send-and-exit))) | 1111 "\C-c\C-c" 'rmail-summary-send-and-exit))) |
| 1106 | 1112 |
| 1107 ;; Summary output commands. | 1113 ;; Summary output commands. |
| 1108 | 1114 |
| 1109 (defun rmail-summary-output-to-rmail-file () | 1115 (defun rmail-summary-output-to-rmail-file (&optional file-name) |
| 1110 "Append the current message to an Rmail file named FILE-NAME. | 1116 "Append the current message to an Rmail file named FILE-NAME. |
| 1111 If the file does not exist, ask if it should be created. | 1117 If the file does not exist, ask if it should be created. |
| 1112 If file is being visited, the message is appended to the Emacs | 1118 If file is being visited, the message is appended to the Emacs |
| 1113 buffer visiting that file." | 1119 buffer visiting that file." |
| 1114 (interactive) | 1120 (interactive) |
| 1115 (save-excursion | 1121 (save-excursion |
| 1116 (set-buffer rmail-buffer) | 1122 (set-buffer rmail-buffer) |
| 1117 (let ((rmail-delete-after-output nil)) | 1123 (let ((rmail-delete-after-output nil)) |
| 1118 (call-interactively 'rmail-output-to-rmail-file))) | 1124 (if file-name |
| 1125 (rmail-output-to-rmail-file file-name) | |
| 1126 (call-interactively 'rmail-output-to-rmail-file)))) | |
| 1119 (if rmail-delete-after-output | 1127 (if rmail-delete-after-output |
| 1120 (rmail-summary-delete-forward nil))) | 1128 (rmail-summary-delete-forward nil))) |
| 1121 | 1129 |
| 1122 (defun rmail-summary-output-menu () | 1130 (defun rmail-summary-output-menu () |
| 1123 "Output current message to another Rmail file, chosen with a menu. | 1131 "Output current message to another Rmail file, chosen with a menu. |
| 1139 (set-buffer rmail-buffer) | 1147 (set-buffer rmail-buffer) |
| 1140 (let ((rmail-delete-after-output nil)) | 1148 (let ((rmail-delete-after-output nil)) |
| 1141 (call-interactively 'rmail-output))) | 1149 (call-interactively 'rmail-output))) |
| 1142 (if rmail-delete-after-output | 1150 (if rmail-delete-after-output |
| 1143 (rmail-summary-delete-forward nil))) | 1151 (rmail-summary-delete-forward nil))) |
| 1152 | |
| 1153 (defun rmail-summary-construct-io-menu () | |
| 1154 (let ((files (rmail-find-all-files rmail-secondary-file-directory))) | |
| 1155 (if (listp files) | |
| 1156 (progn | |
| 1157 (define-key rmail-summary-mode-map [menu-bar classify input-menu] | |
| 1158 (cons "Input Rmail File" | |
| 1159 (rmail-list-to-menu "Input Rmail File" | |
| 1160 (cdr files) | |
| 1161 'rmail-summary-input))) | |
| 1162 (define-key rmail-summary-mode-map [menu-bar classify output-menu] | |
| 1163 (cons "Output Rmail File" | |
| 1164 (rmail-list-to-menu "Output Rmail File" | |
| 1165 (cdr files) | |
| 1166 'rmail-summary-output-to-rmail-file))))))) | |
| 1167 | |
| 1144 | 1168 |
| 1145 ;; Sorting messages in Rmail Summary buffer. | 1169 ;; Sorting messages in Rmail Summary buffer. |
| 1146 | 1170 |
| 1147 (defun rmail-summary-sort-by-date (reverse) | 1171 (defun rmail-summary-sort-by-date (reverse) |
| 1148 "Sort messages of current Rmail summary by date. | 1172 "Sort messages of current Rmail summary by date. |