projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
shr: Render td content with shr-descend
[gnus]
/
lisp
/
pgg-parse.el
diff --git
a/lisp/pgg-parse.el
b/lisp/pgg-parse.el
index
809a945
..
72f8729
100644
(file)
--- a/
lisp/pgg-parse.el
+++ b/
lisp/pgg-parse.el
@@
-1,11
+1,12
@@
;;; pgg-parse.el --- OpenPGP packet parsing
;; Copyright (C) 1999, 2002, 2003, 2004, 2005,
;;; pgg-parse.el --- OpenPGP packet parsing
;; Copyright (C) 1999, 2002, 2003, 2004, 2005,
-;; 2006, 2007, 2008 Free Software Foundation, Inc.
+;; 2006, 2007, 2008
, 2009, 2010
Free Software Foundation, Inc.
;; Author: Daiki Ueno <ueno@unixuser.org>
;; Created: 1999/10/28
;; Keywords: PGP, OpenPGP, GnuPG
;; Author: Daiki Ueno <ueno@unixuser.org>
;; Created: 1999/10/28
;; Keywords: PGP, OpenPGP, GnuPG
+;; Package: pgg
;; This file is part of GNU Emacs.
;; This file is part of GNU Emacs.
@@
-35,6
+36,7
@@
;;; Code:
(eval-when-compile
;;; Code:
(eval-when-compile
+ ;; For Emacs <22.2 and XEmacs.
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))
(require 'cl))
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))
(require 'cl))
@@
-503,8
+505,8
@@
(defun pgg-parse-armor (string)
(with-temp-buffer
(buffer-disable-undo)
(defun pgg-parse-armor (string)
(with-temp-buffer
(buffer-disable-undo)
- (
if (fboundp 'set-buffer-multibyte
)
-
(set-buffer-multibyte nil))
+ (
unless (featurep 'xemacs
)
+ (set-buffer-multibyte nil))
(insert string)
(pgg-decode-armor-region (point-min)(point))))
(insert string)
(pgg-decode-armor-region (point-min)(point))))
@@
-518,5
+520,4
@@
(provide 'pgg-parse)
(provide 'pgg-parse)
-;; arch-tag: 16c2eb82-1313-4a7c-a70f-420709b5b43e
;;; pgg-parse.el ends here
;;; pgg-parse.el ends here