From: Milan Zamazal <pdm@brailcom.org>
Subject: Verifying pkcs7-mime messages -- patch
Date: Wed, 06 Apr 2005 13:37:56 +0200 [thread overview]
Message-ID: <87sm2487aj.fsf@blackbird.zamazal.org> (raw)
[-- Attachment #1: Type: text/plain, Size: 80 bytes --]
The following patch against Emacs CVS makes Gnus verify pkcs7-mime
signatures:
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: mm-view.el.patch --]
[-- Type: text/x-patch, Size: 1409 bytes --]
--- mm-view.el.orig 2005-04-05 18:05:25.599196219 +0200
+++ mm-view.el 2005-04-05 18:03:59.177559850 +0200
@@ -538,18 +538,24 @@
(defun mm-view-pkcs7-verify (handle)
;; A bogus implementation of PKCS#7. FIXME::
- (mm-insert-part handle)
- (goto-char (point-min))
- (if (search-forward "Content-Type: " nil t)
- (delete-region (point-min) (match-beginning 0)))
- (goto-char (point-max))
- (if (re-search-backward "--\r?\n?" nil t)
- (delete-region (match-end 0) (point-max)))
+ (let ((verified nil))
+ (with-temp-buffer
+ (insert "MIME-Version: 1.0\n")
+ (mm-insert-headers "application/pkcs7-mime" "base64" "smime.p7m")
+ (insert-buffer-substring (mm-handle-buffer handle))
+ (setq verified (smime-verify-region (point-min) (point-max))))
+ (goto-char (point-min))
+ (mm-insert-part handle)
+ (if (search-forward "Content-Type: " nil t)
+ (delete-region (point-min) (match-beginning 0)))
+ (goto-char (point-max))
+ (if (re-search-backward "--\r?\n?" nil t)
+ (delete-region (match-end 0) (point-max)))
+ (unless verified
+ (insert-buffer-substring smime-details-buffer)))
(goto-char (point-min))
(while (search-forward "\r\n" nil t)
(replace-match "\n"))
- (message "Verify signed PKCS#7 message is unimplemented.")
- (sit-for 1)
t)
(autoload 'gnus-completing-read-maybe-default "gnus-util" nil nil 'macro)
[-- Attachment #3: Type: text/plain, Size: 338 bytes --]
Regards,
Milan Zamazal
--
If we are going to start removing packages because of the quality of the
software, wonderful. I move to remove all traces of the travesty of editors,
vi, from Debian, since obviously as editors they are less than alpha quality
software. -- Manoj Srivastava in debian-devel
reply other threads:[~2005-04-06 11:37 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87sm2487aj.fsf@blackbird.zamazal.org \
--to=pdm@brailcom.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).