mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(uce-reply-to-uce): Remove hard-coded "*Article*" from

Browse Source 
Gnus support code, and use special article copy buffer
`(gnus-original-article-buffer)' instead.  This allows to get rid
of article-hide-headers usage (which breaks in the latest Gnus
version).  Thanks to Detlev Zundel.
This commit is contained in:
Gerd Moellmann 2000-08-28 15:01:58 +00:00
parent 1c70a086f7
commit db2144080c
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/mail/uce.el
View File

@ -1,6 +1,6 @@
;;; uce.el --- facilitate reply to unsolicited commercial email
;; Copyright (C) 1996, 1998 Free Software Foundation, Inc.
;; Copyright (C) 1996, 1998, 2000 Free Software Foundation, Inc.
;; Author: stanislav shalunov <shalunov@mccme.ru>
;; Created: 10 Dec 1996
@ -79,9 +79,14 @@
;; Dec 3, 1997 -- changes from Gareth Jones <gdj1@gdjones.demon.co.uk>
;; handling Received headers following some line like `From:'.
;;; Setup:
;; Aug 16, 2000 -- changes from Detlev Zundel
;; <detlev.zundel@stud.uni-karlsruhe.de> to make uce.el work with the
;; latest Gnus. Lars told him it should work for all versions of Gnus
;; younger than three years.
;; put in your ~./emacs the following line:
;; Setup:
;; Add the following line to your ~/.emacs:
;; (autoload 'uce-reply-to-uce "uce" "Reply to UCEs" t nil)
@ -214,7 +219,7 @@ buffer with default To: to the sender, his postmaster, his abuse@
address, and postmaster of the mail relay used."
(interactive)
(let ((message-buffer
(cond ((eq uce-mail-reader 'gnus) "*Article*")
(cond ((eq uce-mail-reader 'gnus) gnus-original-article-buffer)
((eq uce-mail-reader 'rmail) "RMAIL")
(t (error
"Variable uce-mail-reader set to unrecognized value")))))
@ -241,9 +246,7 @@ address, and postmaster of the mail relay used."
(setq mail-send-actions nil)
(setq mail-reply-buffer nil)
(cond ((eq uce-mail-reader 'gnus)
(article-hide-headers -1)
(copy-region-as-kill (point-min) (point-max))
(article-hide-headers))
(copy-region-as-kill (point-min) (point-max)))
((eq uce-mail-reader 'rmail)
(save-excursion
(save-restriction