Mercurial > emacs
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 |