Prevent Gnus from loading PGG.

* mml2015.el (mml2015-use): Don't try to load PGG on Emacs 24, when EPG
is not fully working.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 8133964dd413fbea048d1ce7ec86b5eedad80064..e66ae09d391d6562a2484d81903068ea24d61790 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2011-06-30  Daiki Ueno  <ueno@unixuser.org>
+
+       * mml2015.el (mml2015-use): Don't try to load PGG on Emacs 24, when EPG
+       is not fully working.
+
 2011-06-30  Andrew Cohen  <cohen@andy.bu.edu>
 
        * gnus-art.el (gnus-request-article-this-buffer): Use existing function

diff --git a/lisp/gnus/mml2015.el b/lisp/gnus/mml2015.el
index df106bb6de804ac9dc96fb4f759ca38beff244c3..d7070effde518631301279ac44befef3d301f595 100644 (file)
--- a/lisp/gnus/mml2015.el
+++ b/lisp/gnus/mml2015.el
@@ -55,9 +55,15 @@
                           'epg)
                       (error))
                     (progn
-                      (ignore-errors (require 'pgg))
-                      (and (fboundp 'pgg-sign-region)
-                           'pgg))
+                      (let ((abs-file (locate-library "pgg")))
+                        ;; Don't load PGG if it is marked as obsolete
+                        ;; (Emacs 24).
+                        (when (and abs-file
+                                   (not (string-match-p "/obsolete/[^/]*\\'"
+                                                        abs-file)))
+                          (ignore-errors (require 'pgg))
+                          (and (fboundp 'pgg-sign-region)
+                               'pgg))))
                     (progn (ignore-errors
                              (load "mc-toplev"))
                            (and (fboundp 'mc-encrypt-generic)