2007-03-24 Reiner Steib <Reiner.Steib@gmx.de>
+ * gnus-draft.el (gnus-draft-setup-hook): New hook.
+ (gnus-draft-setup): Run it.
+
* gnus-score.el (gnus-inhibit-slow-scoring): New variable, renamed from
gnus-score-fast-scoring. Allow regexp.
(gnus-score-headers): Use it.
(throw 'continue t)
(error "Stop!"))))))))
+(defcustom gnus-draft-setup-hook nil
+ "Hook run after setting up a draft buffer."
+ :group 'gnus-message
+ :version "23.0" ;; No Gnus
+ :type 'hook)
+
;;; Utility functions
;;;!!!If this is byte-compiled, it fails miserably.
(gnus-add-mark ,(car ga) 'replied ,article)
(gnus-request-set-mark ,(car ga) (list (list (list ,article)
'add '(reply)))))
- 'send)))))))
+ 'send))))
+ (run-hooks 'gnus-draft-setup-hook))))
(defun gnus-draft-article-sendable-p (article)
"Say whether ARTICLE is sendable."