From 31b938e00058f2d02c1f5d1901ff69a72a471839 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 8 May 2002 23:37:47 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 15 +++++++++++++++ lisp/gnus.el | 17 ++++++++++++++++- lisp/mml-sec.el | 30 +++++++++++++++++++++++++++--- lisp/mml.el | 3 +-- texi/ChangeLog | 11 +++++++++++ texi/gnus.texi | 2 +- texi/message-ja.texi | 13 +++++++++++++ texi/message.texi | 13 +++++++++++++ 8 files changed, 97 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bdec535..94b9ef7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,4 +1,19 @@ 2002-05-08 Kai Gro,A_(Bjohann + From Florian Weimer . + + * gnus.el (subscribed): New group parameter. + (gnus-find-subscribed-addresses): Use it. + +2002-05-08 Josh Huber + + * mml-sec.el (mml-signencrypt-style-alist): Rename. Also, changed + the default for pgpmime to support pgp v2. + * mml-sec.el (mml-signencrypt-style): New accessor function to + allow users to get/set the signencrypt style more easily without + frobbing the alist directly. + * mml.el (mml-generate-mime-1): Use accessor function. + +2002-05-08 Kai Gro,A_(Bjohann * gnus-art.el (gnus-article-mode-syntax-table): Specify matching parenthesis for "<" and ">". Suggested by Andreas Schwab diff --git a/lisp/gnus.el b/lisp/gnus.el index 8d323f7..3357532 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -1590,6 +1590,21 @@ The gnus-group-split mail splitting mechanism will behave as if this address was listed in gnus-group-split Addresses (see below).") (gnus-define-group-parameter + subscribed + :type bool + :function-document + "Return GROUP's subscription status." + :variable-document + "*Groups which are automatically considered subscribed." + :parameter-type '(const :tag "Subscribed" t) + :parameter-document "\ +Gnus assumed that you are subscribed to the To/List address. + +When constructing a list of subscribed groups using +`gnus-find-subscribed-addresses', Gnus includes the To address given +above, or the list address (if the To address has not been set).") + +(gnus-define-group-parameter auto-expire :type bool :function gnus-group-auto-expirable-p @@ -2520,7 +2535,7 @@ with a `subscribed' parameter." (let (group address addresses) (dolist (entry (cdr gnus-newsrc-alist)) (setq group (car entry)) - (when (gnus-group-find-parameter group 'subscribed) + (when (gnus-parameter-subscribed group) (setq address (mail-strip-quoted-names (or (gnus-group-fast-parameter group 'to-address) (gnus-group-fast-parameter group 'to-list)))) diff --git a/lisp/mml-sec.el b/lisp/mml-sec.el index bc20511..f0f6a64 100644 --- a/lisp/mml-sec.el +++ b/lisp/mml-sec.el @@ -46,12 +46,36 @@ (defvar mml-default-encrypt-method (caar mml-encrypt-alist) "Default encryption method.") -(defvar mml-signencrypt-style +(defvar mml-signencrypt-style-alist '(("smime" separate) ("pgp" separate) - ("pgpmime" combined)) + ("pgpmime" separate)) "Alist specifying whether or not a single sign & encrypt -operation should be perfomed when requesting signencrypt.") +operation should be perfomed when requesting signencrypt. +Note that combined sign & encrypt is NOT supported by pgp v2! +Also note that you should access this with mml-signencrypt-style") + +;;; Configuration/helper functions + +(defun mml-signencrypt-style (method &optional style) + "Function for setting/getting the signencrypt-style used. Takes two +arguments, the method (e.g. \"pgp\") and optionally the mode +(e.g. combined). If the mode is omitted, the current value is returned. + +For example, if you prefer to use combined sign & encrypt with +smime, putting the following in your Gnus startup file will +enable that behavior: + + (mml-set-signencrypt-style \"smime\" combined)" + (let ((style-item (assoc method mml-signencrypt-style-alist))) + (if style-item + (if (or (eq style 'separate) + (eq style 'combined)) + ;; valid style setting? + (setf (second style-item) style) + ;; otherwise, just return the current value + (second style-item)) + (gnus-message 3 "Warning, attempt to set invalid signencrypt-style")))) ;;; Security functions diff --git a/lisp/mml.el b/lisp/mml.el index 0cd49dd..8a0c8ac 100644 --- a/lisp/mml.el +++ b/lisp/mml.el @@ -540,8 +540,7 @@ If MML is non-nil, return the buffer up till the correspondent mml tag." (message-options-set 'message-sender sender)) (if (setq recipients (cdr (assq 'recipients cont))) (message-options-set 'message-recipients recipients)) - (let ((style (second (assoc (first sign-item) - mml-signencrypt-style)))) + (let ((style (mml-signencrypt-style (first encrypt-item)))) ;; check if: we're both signing & encrypting, both methods ;; are the same (why would they be different?!), and that ;; the signencrypt style allows for combined operation. diff --git a/texi/ChangeLog b/texi/ChangeLog index f2a7dba..11b6a6e 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,14 @@ +2002-05-08 Kai Gro,A_(Bjohann + + * gnus.texi (Mail-To-News Gateways): The default + nngateway-header-transformation function inserts a "To" header, + not a "From" header. From Jesper Harder . + +2002-05-08 Josh Huber + + * message.texi (Security): Added a note about the signencrypt + style, and how to change it using `mml-signencrypt-style.' + 2002-05-04 Simon Josefsson * emacs-mime.texi (Encoding Customization): Fix. diff --git a/texi/gnus.texi b/texi/gnus.texi index 35ba3d7..f83c7f2 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -15823,7 +15823,7 @@ For instance, an article with this @code{Newsgroups} header: Newsgroups: alt.religion.emacs @end example -will get this @code{From} header inserted: +will get this @code{To} header inserted: @example To: alt-religion-emacs@@GATEWAY diff --git a/texi/message-ja.texi b/texi/message-ja.texi index d17fe3a..0269282 100644 --- a/texi/message-ja.texi +++ b/texi/message-ja.texi @@ -788,6 +788,19 @@ a multipart tag will be used; if no other parts are present in your message a single part tag will be used. This way, message mode will do the Right Thing (TM) with signed/encrypted multipart messages. +By default, when encrypting a message, Gnus will use the "signencrypt" +mode. If you would like to disable this for a particular message, +give the mml-secure-message-encrypt-* command a prefix argument. (for +example, C-u C-c C-m c p). Additionally, by default Gnus will +separately sign, then encrypt a message which has the mode +signencrypt. If you would like to change this behavior use the +@code{mml-signencrypt-style} function. For example + +@code{(mml-signencrypt-style "pgpmime" 'combined)} + +Will cause Gnus to sign and encrypt in one pass, thus generating a +single signed and encrypted part. + Since signing and especially encryption often is used when sensitive information is sent, you may want to have some way to ensure that your mail is actually signed or encrypted. After invoking the above diff --git a/texi/message.texi b/texi/message.texi index 3bca7a5..3f2e251 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -776,6 +776,19 @@ a multipart tag will be used; if no other parts are present in your message a single part tag will be used. This way, message mode will do the Right Thing (TM) with signed/encrypted multipart messages. +By default, when encrypting a message, Gnus will use the "signencrypt" +mode. If you would like to disable this for a particular message, +give the mml-secure-message-encrypt-* command a prefix argument. (for +example, C-u C-c C-m c p). Additionally, by default Gnus will +separately sign, then encrypt a message which has the mode +signencrypt. If you would like to change this behavior use the +@code{mml-signencrypt-style} function. For example + +@code{(mml-signencrypt-style "pgpmime" 'combined)} + +Will cause Gnus to sign and encrypt in one pass, thus generating a +single signed and encrypted part. + Since signing and especially encryption often is used when sensitive information is sent, you may want to have some way to ensure that your mail is actually signed or encrypted. After invoking the above -- 1.7.10.4