*** empty log message ***

diff --git a/lisp/custom.el b/lisp/custom.el
index 0c24a55..85c7b98 100644 (file)
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -116,12 +116,15 @@ STRING should be given if the last search was by `string-match' on STRING."
          (substring string (match-beginning num) (match-end num))
        (buffer-substring (match-beginning num) (match-end num))))))
 
+
 (or (fboundp 'facep)
     ;; Introduced in Emacs 19.29.
     (defun facep (x)
       "Return t if X is a face name or an internal face vector."
       (and (or (and (fboundp 'internal-facep) (internal-facep x))
-              (and (symbolp x) (assq x global-face-data)))
+              (and 
+               (symbolp x) 
+               (assq x (and (boundp 'global-face-data) global-face-data))))
           t)))
 
 (if (facep 'underline)

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 9ffbef7..7253f8d 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1343,7 +1343,7 @@ variable (string, integer, character, etc).")
   "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
   "The mail address of the Gnus maintainers.")
 
-(defconst gnus-version "(ding) Gnus v0.99.21"
+(defconst gnus-version "(ding) Gnus v0.99.22"
   "Version number for this version of Gnus.")
 
 (defvar gnus-info-nodes