From aa8a41e8a0580cfb98bb09358265ebfccd535019 Mon Sep 17 00:00:00 2001 From: okazaki Date: Sun, 30 Mar 2008 05:51:40 +0000 Subject: [PATCH] (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. --- wl/wl-mime.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)) -- 1.7.10.4