Commit db214408 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

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

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.
parent 1c70a086
;;; 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 <>
;; Created: 10 Dec 1996
......@@ -79,9 +79,14 @@
;; Dec 3, 1997 -- changes from Gareth Jones <>
;; handling Received headers following some line like `From:'.
;;; Setup:
;; Aug 16, 2000 -- changes from Detlev Zundel
;; <> 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."
(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))
(copy-region-as-kill (point-min) (point-max)))
((eq uce-mail-reader 'rmail)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment