Mercurial > emacs
comparison lisp/mail/rnewspost.el @ 16712:aad91ec41fa4
(news-mail-reply, news-reply): Include the message
ID in the In-reply-to line.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 17 Dec 1996 20:53:28 +0000 |
| parents | 4cbc6690c0f7 |
| children | ada95b0e82ae |
comparison
equal
deleted
inserted
replaced
| 16711:890b229ea0c7 | 16712:aad91ec41fa4 |
|---|---|
| 288 (defun news-mail-reply () | 288 (defun news-mail-reply () |
| 289 "Mail a reply to the author of the current article. | 289 "Mail a reply to the author of the current article. |
| 290 While composing the reply, use \\[news-reply-yank-original] to yank the | 290 While composing the reply, use \\[news-reply-yank-original] to yank the |
| 291 original message into it." | 291 original message into it." |
| 292 (interactive) | 292 (interactive) |
| 293 (let (from cc subject date to reply-to | 293 (let (from cc subject date to reply-to message-id |
| 294 (buffer (current-buffer))) | 294 (buffer (current-buffer))) |
| 295 (save-restriction | 295 (save-restriction |
| 296 (narrow-to-region (point-min) (progn (goto-line (point-min)) | 296 (narrow-to-region (point-min) (progn (goto-line (point-min)) |
| 297 (search-forward "\n\n") | 297 (search-forward "\n\n") |
| 298 (- (point) 1))) | 298 (- (point) 1))) |
| 299 (setq from (mail-fetch-field "from") | 299 (setq from (mail-fetch-field "from") |
| 300 subject (mail-fetch-field "subject") | 300 subject (mail-fetch-field "subject") |
| 301 reply-to (mail-fetch-field "reply-to") | 301 reply-to (mail-fetch-field "reply-to") |
| 302 date (mail-fetch-field "date"))) | 302 date (mail-fetch-field "date") |
| 303 message-id (mail-fetch-field "message-id"))) | |
| 303 (setq to from) | 304 (setq to from) |
| 304 (pop-to-buffer "*mail*") | 305 (pop-to-buffer "*mail*") |
| 305 (mail nil | 306 (mail nil |
| 306 (if reply-to reply-to to) | 307 (if reply-to reply-to to) |
| 307 subject | 308 subject |
| 308 (let ((stop-pos (string-match " *at \\| *@ \\| *(\\| *<" from))) | 309 (let ((stop-pos (string-match " *at \\| *@ \\| *(\\| *<" from))) |
| 309 (concat (if stop-pos (substring from 0 stop-pos) from) | 310 (concat (if stop-pos (substring from 0 stop-pos) from) |
| 310 "'s message of " | 311 "'s message " |
| 312 (if message-id | |
| 313 (concat message-id " of ") | |
| 314 "of ") | |
| 311 date)) | 315 date)) |
| 312 nil | 316 nil |
| 313 buffer))) | 317 buffer))) |
| 314 | 318 |
| 315 ;@@ the guts of news-reply and news-post-news should be combined. -tower | 319 ;@@ the guts of news-reply and news-post-news should be combined. -tower |
| 364 (let ((stop-pos | 368 (let ((stop-pos |
| 365 (string-match " *at \\| *@ \\| *(\\| *<" from))) | 369 (string-match " *at \\| *@ \\| *(\\| *<" from))) |
| 366 (setq message-of | 370 (setq message-of |
| 367 (concat | 371 (concat |
| 368 (if stop-pos (substring from 0 stop-pos) from) | 372 (if stop-pos (substring from 0 stop-pos) from) |
| 369 "'s message of " | 373 "'s message " |
| 374 (if message-id | |
| 375 (concat message-id " of ") | |
| 376 "of ") | |
| 370 date))))) | 377 date))))) |
| 371 (news-setup | 378 (news-setup |
| 372 nil | 379 nil |
| 373 subject | 380 subject |
| 374 message-of | 381 message-of |