From: Gerd Moellmann Date: Mon, 28 Aug 2000 15:01:58 +0000 (+0000) Subject: (uce-reply-to-uce): Remove hard-coded "*Article*" from X-Git-Tag: emacs-pretest-21.0.90~1932 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=db2144080c0b08b93ffaa2579fe7b66863688eff;p=emacs.git (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. --- diff --git a/lisp/mail/uce.el b/lisp/mail/uce.el index aa0dfdfee39..6b039594318 100644 --- a/lisp/mail/uce.el +++ b/lisp/mail/uce.el @@ -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 ;; 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." (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