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) |