comparison lisp/gnus/message.el @ 80349:07ebd0fc42b8

[ Merge from Gnus v5-10 ] 2008-03-19 Nils Ackermann <nils@ackermath.info> (tiny change) * nnmh.el (nnmh-request-expire-articles): Prefer expiry-target group parameter. * message.el (message-disassociate-draft): Specify drafts group name fully. 2008-03-19 Katsumi Yamaoka <yamaoka@jpl.org> * mail-source.el (mail-source-delete-old-incoming) Fix regexp to find Incoming* files. 2008-03-19 Katsumi Yamaoka <yamaoka@jpl.org> * nntp.el (nntp-open-telnet-stream, nntp-open-via-rlogin-and-telnet) (nntp-open-via-telnet-and-telnet): Make sure the nntp port to specify is a string.
author Reiner Steib <Reiner.Steib@gmx.de>
date Wed, 19 Mar 2008 21:01:37 +0000
parents 1cb31606209f
children d92328c1e028
comparison
equal deleted inserted replaced
80348:fc86789787e6 80349:07ebd0fc42b8
5795 5795
5796 (defun message-disassociate-draft () 5796 (defun message-disassociate-draft ()
5797 "Disassociate the message buffer from the drafts directory." 5797 "Disassociate the message buffer from the drafts directory."
5798 (when message-draft-article 5798 (when message-draft-article
5799 (nndraft-request-expire-articles 5799 (nndraft-request-expire-articles
5800 (list message-draft-article) "drafts" nil t))) 5800 (list message-draft-article) "nndraft:drafts" nil t)))
5801 5801
5802 (defun message-insert-headers () 5802 (defun message-insert-headers ()
5803 "Generate the headers for the article." 5803 "Generate the headers for the article."
5804 (interactive) 5804 (interactive)
5805 (save-excursion 5805 (save-excursion