From: okazaki <okazaki>
Date: Sun, 30 Mar 2008 05:51:40 +0000 (+0000)
Subject: (wl-message-decrypt-pgp-nonmime): Upcase "pgp" in the error message.
X-Git-Tag: wl-2_15_6-fixes~16
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=aa8a41e8a0580cfb98bb09358265ebfccd535019;p=elisp%2Fwanderlust.git

(wl-message-decrypt-pgp-nonmime): Upcase "pgp" in the error message.
(wl-message-verify-pgp-nonmime): Cause an error if no PGP signed region is found.
---

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index b00f991..52cfad2 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -612,7 +612,7 @@ It calls following-method selected from variable
 	  (inhibit-read-only t)
 	  coding-system)
       (unless region
-	(error "Cannot find pgp encrypted region"))
+	(error "Cannot find PGP encrypted region"))
       (save-restriction
 	(let ((props (text-properties-at (car region))))
 	  (narrow-to-region (car region) (cdr region))
@@ -632,6 +632,8 @@ With ARG, ask coding system and encode the region with it before verifying."
     (let ((region (wl-find-region "^-+BEGIN PGP SIGNED MESSAGE-+$"
 				  "^-+END PGP SIGNATURE-+$"))
 	  coding-system)
+      (unless region
+	(error "Cannot find PGP signed region"))
       (setq coding-system
 	    (or (get-text-property (car region) 'wl-mime-decoded-coding-system)
 		(let* ((situation (mime-preview-find-boundary-info))