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 |