+2003-01-12 Raymond Scholz <ray-2003@zonix.de>
+
+ * gnus-msg.el (gnus-confirm-mail-reply-to-news): May be a
+ regexp or a function too.
+ (gnus-confirm-treat-mail-like-news): New variable. Ask for
+ confirmation even if the original article is mail.
+
2003-01-12 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * gnus-msg.el (gnus-inews-add-send-actions): Get the right
+ articles to be marked when not yanking.
+
+2003-01-12 Fran\e,Ag\e(Bois-David Collin <Francois-David.Collin@curie.fr>
+
+ * mm-decode.el (mm-get-part): Use mm-with-unibyte-current-buffer.
+
+2003-01-12 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * gnus-fun.el (gnus-face-from-file): Autoload.
+
* gnus-cite.el (gnus-cite-delete-overlays): Protect against more
errors.
+
2003-01-12 Simon Josefsson <jas@extundo.com>
* sieve.el (sieve-upload-and-bury): New. Suggested by
"If non-nil, Gnus requests confirmation when replying to news.
This is done because new users often reply by mistake when reading
news.
-This can also be a function which should return non-nil iff a
-confirmation is needed, or a regexp, in which case a confirmation is
-asked if the group name matches the regexp."
+This can also be a function receiving the group name as the only
+parameter which should return non-nil iff a confirmation is needed, or
+a regexp, in which case a confirmation is asked for iff the group name
+matches the regexp."
:group 'gnus-message
:type '(choice (const :tag "No" nil)
- (const :tag "Yes" nil)
+ (const :tag "Yes" t)
(regexp :tag "Iff group matches regexp")
(function :tag "Iff function evaluates to non-nil")))
(setq message-newsreader (setq message-mailer (gnus-extended-version)))
(message-add-action
`(set-window-configuration ,winconf) 'exit 'postpone 'kill)
- (message-add-action
- `(when (gnus-buffer-exists-p ,buffer)
- (save-excursion
- (set-buffer ,buffer)
- ,(when article
- (if (eq config 'forward)
- `(gnus-summary-mark-article-as-forwarded ',yanked)
- `(gnus-summary-mark-article-as-replied ',yanked)))))
- 'send))
+ (let ((to-be-marked (cond
+ (yanked yanked)
+ (article (list article))
+ (t nil))))
+ (message-add-action
+ `(when (gnus-buffer-exists-p ,buffer)
+ (save-excursion
+ (set-buffer ,buffer)
+ ,(when to-be-marked
+ (if (eq config 'forward)
+ `(gnus-summary-mark-article-as-forwarded ',to-be-marked)
+ `(gnus-summary-mark-article-as-replied ',to-be-marked)))))
+ 'send)))
(put 'gnus-setup-message 'lisp-indent-function 1)
(put 'gnus-setup-message 'edebug-form-spec '(form body))
(not (or (gnus-news-group-p gnus-newsgroup-name)
gnus-confirm-treat-mail-like-news))
(not (cond ((stringp gnus-confirm-mail-reply-to-news)
- (string-match gnus-confirm-mail-reply-to-news gnus-newsgroup-name))
+ (string-match gnus-confirm-mail-reply-to-news
+ gnus-newsgroup-name))
((functionp gnus-confirm-mail-reply-to-news)
- (funcall gnus-confirm-mail-reply-to-news))
+ (funcall gnus-confirm-mail-reply-to-news gnus-newsgroup-name))
(t gnus-confirm-mail-reply-to-news)))
(y-or-n-p "Really reply by mail to article author? "))
(let* ((article