1776 |
|
|
1777 |
|
|
1778 |
@example |
@example |
1779 |
(defadvice gnus-summary-reply (around reply-in-news activate) |
(eval-after-load "gnus-msg" |
1780 |
|
'(unless (boundp 'gnus-confirm-mail-reply-to-news) |
1781 |
|
(defadvice gnus-summary-reply (around reply-in-news activate) |
1782 |
|
"Request confirmation when replying to news." |
1783 |
(interactive) |
(interactive) |
1784 |
(when (or (not (gnus-news-group-p gnus-newsgroup-name)) |
(when (or (not (gnus-news-group-p gnus-newsgroup-name)) |
1785 |
(y-or-n-p "Really reply? ")) |
(y-or-n-p "Really reply by mail to article author? ")) |
1786 |
ad-do-it)) |
ad-do-it)))) |
1787 |
@end example |
@end example |
1788 |
|
|
1789 |
@ifnottex |
@ifnottex |