Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-msg.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents d620409f5eb8
children 1a767b41a199
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
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
724 (let ((to-address (mail-fetch-field "to"))) 721 (let ((to-address (mail-fetch-field "to")))
725 (when (and to-address 722 (when (and to-address
726 (gnus-alive-p)) 723 (gnus-alive-p))
727 ;; This mail group doesn't have a `to-list', so we add one 724 ;; This mail group doesn't have a `to-list', so we add one
728 ;; here. Magic! 725 ;; here. Magic!
729 (gnus-group-add-parameter group (cons 'to-list to-address))))) 726 (when (gnus-y-or-n-p
727 (format "Do you want to add this as `to-list': %s " to-address))
728 (gnus-group-add-parameter group (cons 'to-list to-address))))))
730 729
731 (defun gnus-put-message () 730 (defun gnus-put-message ()
732 "Put the current message in some group and return to Gnus." 731 "Put the current message in some group and return to Gnus."
733 (interactive) 732 (interactive)
734 (let ((reply gnus-article-reply) 733 (let ((reply gnus-article-reply)