Mercurial > emacs
comparison lisp/mail/pmailsum.el @ 97808:1aab9bdd9355
Resolve all byte compiler warnings and enable IMAP/movemail support.
author | Paul Reilly <pmr@pajato.com> |
---|---|
date | Fri, 29 Aug 2008 04:27:46 +0000 |
parents | ec1125c7ac26 |
children | 850e2882805c |
comparison
equal
deleted
inserted
replaced
97807:75ebbf217ac0 | 97808:1aab9bdd9355 |
---|---|
211 (define-key map [menu-bar move next] | 211 (define-key map [menu-bar move next] |
212 '("Next" . pmail-summary-next-all)) | 212 '("Next" . pmail-summary-next-all)) |
213 map) | 213 map) |
214 "Keymap for `pmail-summary-mode'.") | 214 "Keymap for `pmail-summary-mode'.") |
215 | 215 |
216 (declare-function pmail-abort-edit "pmailedit" ()) | |
217 (declare-function pmail-cease-edit "pmailedit"()) | |
218 (declare-function pmail-set-label "pmailkwd" (l state &optional n)) | |
219 (declare-function pmail-output-read-file-name "pmailout" ()) | |
220 (declare-function pmail-output-read-pmail-file-name "pmailout" ()) | |
221 (declare-function mail-comma-list-regexp "mail-utils" (labels)) | |
222 (declare-function mail-send-and-exit "sendmail" (&optional arg)) | |
223 (declare-function mail-strip-quoted-names "mail-utils" (address)) | |
224 | |
216 ;; Entry points for making a summary buffer. | 225 ;; Entry points for making a summary buffer. |
217 | 226 |
218 ;; Regenerate the contents of the summary | 227 ;; Regenerate the contents of the summary |
219 ;; using the same selection criterion as last time. | 228 ;; using the same selection criterion as last time. |
220 ;; M-x revert-buffer in a summary buffer calls this function. | 229 ;; M-x revert-buffer in a summary buffer calls this function. |
1051 (interactive) | 1060 (interactive) |
1052 (with-no-warnings | 1061 (with-no-warnings |
1053 (end-of-buffer)) | 1062 (end-of-buffer)) |
1054 (forward-line -1)) | 1063 (forward-line -1)) |
1055 | 1064 |
1056 (declare-function pmail-abort-edit "pmailedit" ()) | |
1057 (declare-function pmail-cease-edit "pmailedit"()) | |
1058 (declare-function pmail-set-label "pmailkwd" (l state &optional n)) | |
1059 (declare-function pmail-output-read-file-name "pmailout" ()) | |
1060 (declare-function pmail-output-read-pmail-file-name "pmailout" ()) | |
1061 (declare-function mail-send-and-exit "sendmail" (&optional arg)) | |
1062 | |
1063 (defvar pmail-summary-edit-map | 1065 (defvar pmail-summary-edit-map |
1064 (let ((map (nconc (make-sparse-keymap) text-mode-map))) | 1066 (let ((map (nconc (make-sparse-keymap) text-mode-map))) |
1065 (define-key map "\C-c\C-c" 'pmail-cease-edit) | 1067 (define-key map "\C-c\C-c" 'pmail-cease-edit) |
1066 (define-key map "\C-c\C-]" 'pmail-abort-edit) | 1068 (define-key map "\C-c\C-]" 'pmail-abort-edit) |
1067 map) | 1069 map) |