From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/44298
Path: main.gmane.org!not-for-mail
From: Josh Huber <huber@alum.wpi.edu>
Newsgroups: gmane.emacs.gnus.general
Subject: [PATCH] replysign/replyencrypt functionality
Date: Fri, 19 Apr 2002 11:57:47 -0400
Sender: owner-ding@hpc.uh.edu
Message-ID: <87d6wvbs04.fsf@alum.wpi.edu>
NNTP-Posting-Host: localhost.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1019233134 13187 127.0.0.1 (19 Apr 2002 16:18:54 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Fri, 19 Apr 2002 16:18:54 +0000 (UTC)
Return-path: <owner-ding@hpc.uh.edu>
Original-Received: from hermes.netfonds.no ([195.204.10.138])
	by main.gmane.org with esmtp (Exim 3.33 #1 (Debian))
	id 16yb65-0003HE-03
	for <ding-account@gmane.org>; Fri, 19 Apr 2002 18:18:53 +0200
Original-Received: from malifon.math.uh.edu (malifon.math.uh.edu [129.7.128.13])
	by hermes.netfonds.no (8.10.1/8.9.3) with ESMTP id g3JFvnf07965
	for <ding-account@gmane.org>; Fri, 19 Apr 2002 17:57:49 +0200 (CEST)
Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists)
	by malifon.math.uh.edu with esmtp (Exim 3.20 #1)
	id 16yal9-0004ZQ-00; Fri, 19 Apr 2002 10:57:15 -0500
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 19 Apr 2002 10:57:27 -0500 (CDT)
Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id KAA04459
	for <ding@hpc.uh.edu>; Fri, 19 Apr 2002 10:57:14 -0500 (CDT)
Original-Received: (qmail 24404 invoked by alias); 19 Apr 2002 15:56:57 -0000
Original-Received: (qmail 24399 invoked from network); 19 Apr 2002 15:56:57 -0000
Original-Received: from quimby.gnus.org (80.91.224.244)
  by gnus.org with SMTP; 19 Apr 2002 15:56:57 -0000
Original-Received: from news by quimby.gnus.org with local (Exim 3.12 #1 (Debian))
	id 16yb4L-0003EF-00
	for <ding@gnus.org>; Fri, 19 Apr 2002 18:17:05 +0200
Original-To: ding@gnus.org
Original-Path: not-for-mail
Original-Newsgroups: gnus.ding
Original-Lines: 77
Original-NNTP-Posting-Host: lowell.missioncriticallinux.com
Original-X-Trace: quimby.gnus.org 1019233025 12414 64.244.21.16 (19 Apr 2002 16:17:05 GMT)
Original-X-Complaints-To: usenet@quimby.gnus.org
Original-NNTP-Posting-Date: 19 Apr 2002 16:17:05 GMT
X-PGP-KeyID: 6B21489A
X-Face: C%mBb*K1^od)w'=CH$WEZu/M^aR<,.n|1uAe,;MyNLKoel>F;-j[`L!>m:Y%/R}m&4&xuIM
 R%7Ez?vbd*Ns>VE;{\(yl|mGByV{D:Dm>'52].@P&t_s^,.d<zXm<Os=44DXqAQMZU_;n4rokIt:5Z
Mail-Copies-To: nobody
User-Agent: Gnus/5.090006 (Oort Gnus v0.06) XEmacs/21.5 (bok choi,
 powerpc-unknown-linux)
Cancel-Lock: sha1:3HNwdQZw0D2FxsixR6OWvop0E2Y=
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:44298
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:44298

This is something I've wanted for a while.  This feature idea came
from Mutt btw.

When replying to an encrypted message, setting gnus-replyencrypt will
cause the reply to have a secure tag automatically inserted into the
message buffer. (gnus-replysign is the corresponding signed-message
version)

I'm not committing this yet, since I'd like to make sure this is a
good way to do it. (tacking it on the end of gnus-summary-reply).

Also, is there a better way to get at the local variables from another
buffer?

This works for me so far, please try it out/take a look.

gnus Patch (cvs -q diff -u):

Index: lisp/gnus-msg.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-msg.el,v
retrieving revision 6.82
diff -u -r6.82 gnus-msg.el
--- lisp/gnus-msg.el	2002/03/06 19:52:44	6.82
+++ lisp/gnus-msg.el	2002/04/19 16:12:01
@@ -219,6 +219,26 @@
   :group 'gnus-group-foreign
   :type '(repeat (symbol :tab "Back end")))
 
+(defcustom gnus-replysign
+  nil
+  "Automatically sign replys to signed messages.
+See also the `mml-default-sign-method' variable."
+  :group 'gnus-message
+  :type 'boolean)
+
+(defcustom gnus-replyencrypt
+  nil
+  "Automatically encrypt replys to encrypted messages.
+See also the `mml-default-encrypt-method' variable."
+  :group 'gnus-message
+  :type 'boolean)
+
+(defcustom gnus-replysignencrypted
+  nil
+  "Setting this causes automatically encryped messages to also be signed."
+  :group 'gnus-message
+  :type 'boolean)
+
 ;;; Internal variables.
 
 (defvar gnus-inhibit-posting-styles nil
@@ -989,7 +1009,20 @@
       (mml-quote-region (point) (point-max))
       (message-reply nil wide)
       (when yank
-	(gnus-inews-yank-articles yank)))))
+	(gnus-inews-yank-articles yank))
+      (when (or gnus-replysign gnus-replyencrypt)
+	(let (signed encrypted)
+	  (save-excursion
+	    (set-buffer (or gnus-article-buffer article-buffer))
+	    (setq signed (memq 'signed gnus-article-wash-types))
+	    (setq encrypted (memq 'encrypted gnus-article-wash-types)))
+	  (cond ((and gnus-replysign signed)
+		 (mml-secure-message mml-default-sign-method 'sign))
+		((and gnus-replyencrypt encrypted)
+		 (mml-secure-message mml-default-encrypt-method
+				     (if gnus-replysignencrypted
+					 'signencrypt
+				       'encrypt)))))))))
 
 (defun gnus-summary-reply-with-original (n &optional wide)
   "Start composing a reply mail to the current message.

-- 
Josh Huber