Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-msg.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents 48d667d6f17f
children 9f59509498e1
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
306 (gnus-summary-select-article t) 306 (gnus-summary-select-article t)
307 (set-buffer gnus-original-article-buffer) 307 (set-buffer gnus-original-article-buffer)
308 (message-supersede) 308 (message-supersede)
309 (push 309 (push
310 `((lambda () 310 `((lambda ()
311 (gnus-cache-possibly-remove-article ,article nil nil nil t)))
312 message-send-actions)
313 (push
314 `((lambda ()
315 (when (buffer-name (get-buffer ,gnus-summary-buffer)) 311 (when (buffer-name (get-buffer ,gnus-summary-buffer))
316 (save-excursion 312 (save-excursion
317 (set-buffer (get-buffer ,gnus-summary-buffer)) 313 (set-buffer (get-buffer ,gnus-summary-buffer))
314 (gnus-cache-possibly-remove-article ,article nil nil nil t)
318 (gnus-summary-mark-as-read ,article gnus-canceled-mark))))) 315 (gnus-summary-mark-as-read ,article gnus-canceled-mark)))))
319 message-send-actions)))) 316 message-send-actions))))
320 317
321 318
322 319
405 (if post 402 (if post
406 (progn 403 (progn
407 (message-mail (or to-address to-list)) 404 (message-mail (or to-address to-list))
408 ;; Arrange for mail groups that have no `to-address' to 405 ;; Arrange for mail groups that have no `to-address' to
409 ;; get that when the user sends off the mail. 406 ;; get that when the user sends off the mail.
410 (push (list 'gnus-inews-add-to-address pgroup) 407 (when (and (not to-list)
411 message-send-actions)) 408 (not to-address))
409 (push (list 'gnus-inews-add-to-address pgroup)
410 message-send-actions)))
412 (set-buffer gnus-article-copy) 411 (set-buffer gnus-article-copy)
413 (message-wide-reply to-address))) 412 (message-wide-reply to-address)))
414 (when yank 413 (when yank
415 (gnus-inews-yank-articles yank)))))) 414 (gnus-inews-yank-articles yank))))))
416 415
724 (let ((to-address (mail-fetch-field "to"))) 723 (let ((to-address (mail-fetch-field "to")))
725 (when (and to-address 724 (when (and to-address
726 (gnus-alive-p)) 725 (gnus-alive-p))
727 ;; This mail group doesn't have a `to-list', so we add one 726 ;; This mail group doesn't have a `to-list', so we add one
728 ;; here. Magic! 727 ;; here. Magic!
729 (gnus-group-add-parameter group (cons 'to-list to-address))))) 728 (when (gnus-y-or-n-p
729 (format "Do you want to add this as `to-list': %s " to-address))
730 (gnus-group-add-parameter group (cons 'to-list to-address))))))
730 731
731 (defun gnus-put-message () 732 (defun gnus-put-message ()
732 "Put the current message in some group and return to Gnus." 733 "Put the current message in some group and return to Gnus."
733 (interactive) 734 (interactive)
734 (let ((reply gnus-article-reply) 735 (let ((reply gnus-article-reply)