PATCH: Don't quote signature (was: Re: GNKSA and Gnus)

[Per Abrahamsen <abraham@dina.kvl.dk>]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Providing an alternative to `message-cite-original' that removes the
> signature might be nice.

Here is a patch to `message-cite-original' which simply doesn't quote
the signature.  I think that in the rare cases where the user *want*
to quote the signature, he can just cut and paste it manually.

1998-01-13  Per Abrahamsen  <abraham@dina.kvl.dk>

	* gnus/message.el (message-cite-original): Don't quote signature.

cd /pack/emacs-20/share/emacs/20.2/lisp/gnus/
diff -c message.el~ message.el
*** message.el~	Fri Sep  5 08:12:49 1997
--- message.el	Tue Jan 13 16:56:11 1998
***************
*** 1598,1608 ****
--- 1598,1612 ----
  (defun message-cite-original ()
    "Cite function in the standard Message manner."
    (let ((start (point))
+ 	(end (mark t))
  	(functions
  	 (when message-indent-citation-function
  	   (if (listp message-indent-citation-function)
  	       message-indent-citation-function
  	     (list message-indent-citation-function)))))
+     (goto-char end)
+     (when (re-search-backward "^-- $" start t)
+       (delete-region (point) end))
      (goto-char start)
      (while functions
        (funcall (pop functions)))

Compilation exited abnormally with code 1 at Tue Jan 13 16:57:05