Mercurial > emacs
comparison lisp/mail/rnewspost.el @ 14625:4cbc6690c0f7
(news-reply-mode-map): Delete news-reply-signature.
(news-reply-signature): Improve the message.
(news-reply-yank-message-id, news-reply-yank-from):
Fix swapped args in defvars.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 21 Feb 1996 21:24:40 +0000 |
| parents | 069791dced1e |
| children | aad91ec41fa4 |
comparison
equal
deleted
inserted
replaced
| 14624:700c1a3ee265 | 14625:4cbc6690c0f7 |
|---|---|
| 94 '("Text" . mail-text)) | 94 '("Text" . mail-text)) |
| 95 (define-key news-reply-mode-map [menu-bar news] | 95 (define-key news-reply-mode-map [menu-bar news] |
| 96 (cons "News" (make-sparse-keymap "News"))) | 96 (cons "News" (make-sparse-keymap "News"))) |
| 97 (define-key news-reply-mode-map [menu-bar news news-caesar-buffer-body] | 97 (define-key news-reply-mode-map [menu-bar news news-caesar-buffer-body] |
| 98 '("Rot13" . news-caesar-buffer-body)) | 98 '("Rot13" . news-caesar-buffer-body)) |
| 99 (define-key news-reply-mode-map [menu-bar news news-reply-signature] | |
| 100 '("Signature" . news-reply-signature)) | |
| 101 (define-key news-reply-mode-map [menu-bar news news-reply-yank-original] | 99 (define-key news-reply-mode-map [menu-bar news news-reply-yank-original] |
| 102 '("Yank Original" . news-reply-yank-original)) | 100 '("Yank Original" . news-reply-yank-original)) |
| 103 (define-key news-reply-mode-map [menu-bar news mail-fill-yanked-message] | 101 (define-key news-reply-mode-map [menu-bar news mail-fill-yanked-message] |
| 104 '("Fill Yanked Messages" . mail-fill-yanked-message)) | 102 '("Fill Yanked Messages" . mail-fill-yanked-message)) |
| 105 (define-key news-reply-mode-map [menu-bar news news-inews] | 103 (define-key news-reply-mode-map [menu-bar news news-inews] |
| 138 (setq paragraph-separate | 136 (setq paragraph-separate |
| 139 (concat "^" (regexp-quote mail-header-separator) "$\\|" | 137 (concat "^" (regexp-quote mail-header-separator) "$\\|" |
| 140 paragraph-separate)) | 138 paragraph-separate)) |
| 141 (run-hooks 'text-mode-hook 'news-reply-mode-hook)) | 139 (run-hooks 'text-mode-hook 'news-reply-mode-hook)) |
| 142 | 140 |
| 143 (defvar news-reply-yank-from | 141 (defvar news-reply-yank-from "" |
| 144 "Save `From:' field for `news-reply-yank-original'." | 142 "Save `From:' field for `news-reply-yank-original'.") |
| 145 "") | 143 |
| 146 | 144 (defvar news-reply-yank-message-id "" |
| 147 (defvar news-reply-yank-message-id | 145 "Save `Message-Id:' field for `news-reply-yank-original'.") |
| 148 "Save `Message-Id:' field for `news-reply-yank-original'." | |
| 149 "") | |
| 150 | 146 |
| 151 (defun news-reply-yank-original (arg) | 147 (defun news-reply-yank-original (arg) |
| 152 "Insert the message being replied to, if any (in Mail mode). | 148 "Insert the message being replied to, if any (in Mail mode). |
| 153 Puts point before the text and mark after. | 149 Puts point before the text and mark after. |
| 154 Indents each nonblank line ARG spaces (default 3). | 150 Indents each nonblank line ARG spaces (default 3). |
| 220 (mail-position-on-field "Summary")) | 216 (mail-position-on-field "Summary")) |
| 221 | 217 |
| 222 (defun news-reply-signature () | 218 (defun news-reply-signature () |
| 223 "The inews program appends `~/.signature' automatically." | 219 "The inews program appends `~/.signature' automatically." |
| 224 (interactive) | 220 (interactive) |
| 225 (message "`~/.signature' will be appended automatically.")) | 221 (message "Posting news will append your signature automatically.")) |
| 226 | 222 |
| 227 (defun news-setup (to subject in-reply-to newsgroups replybuffer) | 223 (defun news-setup (to subject in-reply-to newsgroups replybuffer) |
| 228 "Set up the news reply or posting buffer with the proper headers and mode." | 224 "Set up the news reply or posting buffer with the proper headers and mode." |
| 229 (setq mail-reply-buffer replybuffer) | 225 (setq mail-reply-buffer replybuffer) |
| 230 (let ((mail-setup-hook nil) | 226 (let ((mail-setup-hook nil) |