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

[Kim-Minh Kaplan <KimMinh.Kaplan@utopia.eunet.fr>]

[-- Attachment #1: Type: text/plain, Size: 463 bytes --]

Per Abrahamsen <abraham@dina.kvl.dk> writes:

> 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.

Gnus can put the quoted signature in the kill ring.  Then pasting is
really easy.

Hmm, may be an empty kill should be added even when there is no
signature for consistency...  What do you think ?

Kim-Minh.

[-- Attachment #2: Type: text/plain, Size: 1041 bytes --]

--- /usr/local/lib/xemacs/gnus/lisp/message.el	Tue Jan  6 07:48:40 1998
+++ /usr/tmp/message.el	Thu Jan 15 00:47:04 1998
@@ -1690,18 +1690,26 @@
 (defun message-cite-original ()
   "Cite function in the standard Message manner."
   (let ((start (point))
+	(end (mark t))
+	sig-start
 	(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)
+      (setq sig-start (point-marker)))
     (goto-char start)
     (while functions
       (funcall (pop functions)))
     (when message-citation-line-function
       (unless (bolp)
 	(insert "\n"))
-      (funcall message-citation-line-function))))
+      (funcall message-citation-line-function))
+    (when sig-start
+      (kill-region sig-start (mark t))
+      (set-marker sig-start nil))))
 
 (defun message-insert-citation-line ()
   "Function that inserts a simple citation line."