;;; gnus-draft.el --- draft message support for Gnus
-;; Copyright (C) 1997-2011 Free Software Foundation, Inc.
+;; Copyright (C) 1997-2012 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
gnus-agent-queue-mail))
(rfc2047-encode-encoded-words nil)
type method move-to)
- (gnus-draft-setup article (or group "nndraft:queue"))
+ (gnus-draft-setup article (or group "nndraft:queue") nil 'dont-pop)
;; We read the meta-information that says how and where
;; this message is to be sent.
(save-restriction
:type 'hook)
-(defun gnus-draft-setup (narticle group &optional restore)
+(defun gnus-draft-setup (narticle group &optional restore dont-pop)
+ "Setup a mail draft buffer.
+If DONT-POP is nil, display the buffer after setting it up."
(let (ga)
(gnus-setup-message 'forward
(let ((article narticle))
- (message-mail)
+ (message-mail nil nil nil nil
+ (if dont-pop
+ (lambda (buf) (set-buffer (get-buffer-create buf)))))
(let ((inhibit-read-only t))
(erase-buffer))
(if (not (gnus-request-restore-buffer article group))
(defun gnus-draft-clear-marks ()
(setq gnus-newsgroup-reads nil
gnus-newsgroup-marked nil
- gnus-newsgroup-unreads
- (gnus-uncompress-range (gnus-active gnus-newsgroup-name))))
+ gnus-newsgroup-unreads (nndraft-articles)))
(provide 'gnus-draft)