* gnus.el (gnus-group-short-name, gnus-group-prefixed-p): new functions

[gnus] / lisp / pgg.el

diff --git a/lisp/pgg.el b/lisp/pgg.el
index 407e5c1..8fffe88 100644 (file)
--- a/lisp/pgg.el
+++ b/lisp/pgg.el
@@ -33,6 +33,7 @@
 (require 'pgg-parse)
 
 (eval-when-compile
+  (require 'cl)
   (ignore-errors
     (require 'w3)
     (require 'url)))
@@ -179,7 +180,7 @@ the region."
   (interactive "r")
   (let* ((buf (current-buffer))
         (packet (cdr (assq 1 (with-temp-buffer
-                               (insert-buffer buf)
+                               (insert-buffer-substring buf)
                                (pgg-decode-armor-region
                                 (point-min) (point-max))))))
         (key (cdr (assq 'key-identifier packet)))