[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-draft.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-draft.el [lexbind] |
Date: |
Mon, 25 Oct 2004 00:44:46 -0400 |
Index: emacs/lisp/gnus/gnus-draft.el
diff -c emacs/lisp/gnus/gnus-draft.el:1.4.18.3
emacs/lisp/gnus/gnus-draft.el:1.4.18.4
*** emacs/lisp/gnus/gnus-draft.el:1.4.18.3 Thu Sep 16 00:12:15 2004
--- emacs/lisp/gnus/gnus-draft.el Mon Oct 25 04:22:24 2004
***************
*** 132,148 ****
(defun gnus-draft-send (article &optional group interactive)
"Send message ARTICLE."
! (let ((message-syntax-checks (if interactive message-syntax-checks
! 'dont-check-for-anything-just-trust-me))
! (message-hidden-headers nil)
! (message-inhibit-body-encoding (or (not group)
! (equal group "nndraft:queue")
! message-inhibit-body-encoding))
! (message-send-hook (and group (not (equal group "nndraft:queue"))
! message-send-hook))
! (message-setup-hook (and group (not (equal group "nndraft:queue"))
! message-setup-hook))
! type method move-to)
(gnus-draft-setup article (or group "nndraft:queue"))
;; We read the meta-information that says how and where
;; this message is to be sent.
--- 132,152 ----
(defun gnus-draft-send (article &optional group interactive)
"Send message ARTICLE."
! (let* ((is-queue (or (not group)
! (equal group "nndraft:queue")))
! (message-syntax-checks (if interactive message-syntax-checks
! 'dont-check-for-anything-just-trust-me))
! (message-hidden-headers nil)
! (message-inhibit-body-encoding (or is-queue
! message-inhibit-body-encoding))
! (message-send-hook (and (not is-queue)
! message-send-hook))
! (message-setup-hook (and (not is-queue)
! message-setup-hook))
! (gnus-agent-queue-mail (and (not is-queue)
! gnus-agent-queue-mail))
! (rfc2047-encode-encoded-words nil)
! type method move-to)
(gnus-draft-setup article (or group "nndraft:queue"))
;; We read the meta-information that says how and where
;; this message is to be sent.
***************
*** 196,217 ****
(defun gnus-group-send-queue ()
"Send all sendable articles from the queue group."
(interactive)
! (gnus-activate-group "nndraft:queue")
! (save-excursion
! (let* ((articles (nndraft-articles))
! (unsendable (gnus-uncompress-range
! (cdr (assq 'unsend
! (gnus-info-marks
! (gnus-get-info "nndraft:queue"))))))
! (gnus-posting-styles nil)
! (total (length articles))
! article)
! (while (setq article (pop articles))
! (unless (memq article unsendable)
! (let ((message-sending-message
! (format "Sending message %d of %d..."
! (- total (length articles)) total)))
! (gnus-draft-send article)))))))
;;;###autoload
(defun gnus-draft-reminder ()
--- 200,224 ----
(defun gnus-group-send-queue ()
"Send all sendable articles from the queue group."
(interactive)
! (when (or gnus-plugged
! (not gnus-agent-prompt-send-queue)
! (gnus-y-or-n-p "Gnus is unplugged; really send queue? "))
! (gnus-activate-group "nndraft:queue")
! (save-excursion
! (let* ((articles (nndraft-articles))
! (unsendable (gnus-uncompress-range
! (cdr (assq 'unsend
! (gnus-info-marks
! (gnus-get-info "nndraft:queue"))))))
! (gnus-posting-styles nil)
! (total (length articles))
! article)
! (while (setq article (pop articles))
! (unless (memq article unsendable)
! (let ((message-sending-message
! (format "Sending message %d of %d..."
! (- total (length articles)) total)))
! (gnus-draft-send article))))))))
;;;###autoload
(defun gnus-draft-reminder ()
***************
*** 265,276 ****
`(lambda (arg)
(gnus-post-method arg ,(car ga))))
(unless (equal (cadr ga) "")
! (message-add-action
! `(progn
! (gnus-add-mark ,(car ga) 'replied ,(cadr ga))
! (gnus-request-set-mark ,(car ga) (list (list (list ,(cadr ga))
! 'add '(reply)))))
! 'send))))))
(defun gnus-draft-article-sendable-p (article)
"Say whether ARTICLE is sendable."
--- 272,284 ----
`(lambda (arg)
(gnus-post-method arg ,(car ga))))
(unless (equal (cadr ga) "")
! (dolist (article (cdr ga))
! (message-add-action
! `(progn
! (gnus-add-mark ,(car ga) 'replied ,article)
! (gnus-request-set-mark ,(car ga) (list (list (list ,article)
! 'add '(reply)))))
! 'send)))))))
(defun gnus-draft-article-sendable-p (article)
"Say whether ARTICLE is sendable."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-draft.el [lexbind],
Miles Bader <=