From d3ec66fb945ec9c121f63360dda49d95d98585f8 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Wed, 1 Nov 2000 11:45:46 +0000 Subject: [PATCH] 2000-11-01 07:39:24 ShengHuo ZHU * gnus-sum.el (gnus-summary-force-verify-and-decrypt): New function. --- lisp/ChangeLog | 4 ++++ lisp/gnus-sum.el | 10 +++++++++- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 24ea91516..6a399e794 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2000-11-01 07:39:24 ShengHuo ZHU + + * gnus-sum.el (gnus-summary-force-verify-and-decrypt): New function. + 2000-10-31 22:06:13 ShengHuo ZHU * gnus-sum.el (gnus-article-charset): New variable. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index fef83f972..3de2d202e 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -1554,6 +1554,7 @@ increase the score of each group you read." "6" gnus-article-de-base64-unreadable "Z" gnus-article-decode-HZ "h" gnus-article-wash-html + "s" gnus-summary-force-verify-and-decrypt "f" gnus-article-display-x-face "l" gnus-summary-stop-page-breaking "r" gnus-summary-caesar-message @@ -1705,7 +1706,8 @@ increase the score of each group you read." ["Charset" gnus-article-decode-charset t] ["QP" gnus-article-de-quoted-unreadable t] ["Base64" gnus-article-de-base64-unreadable t] - ["View all" gnus-mime-view-all-parts t]) + ["View all" gnus-mime-view-all-parts t] + ["Verify and Decrypt" gnus-summary-force-verify-and-decrypt]) ("Date" ["Local" gnus-article-date-local t] ["ISO8601" gnus-article-date-iso8601 t] @@ -5915,6 +5917,12 @@ be displayed." (gnus-article-show-all-headers)) 'old)))) +(defun gnus-summary-force-verify-and-decrypt () + (interactive) + (let ((mm-verify-option 'known) + (mm-decrypt-option 'known)) + (gnus-summary-select-article nil 'force))) + (defun gnus-summary-set-current-mark (&optional current-mark) "Obsolete function." nil) -- 2.25.1