From: yamaoka <yamaoka>
Date: Wed, 22 Sep 1999 10:15:21 +0000 (+0000)
Subject: (TopLevel): Bind keywords `:user', `:path' and `:predicate' for old Emacsen;
X-Git-Tag: t-gnus-6_13_1-06~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5ab83d6227ea18f7bd40d9c1393f0e50a0a98a77;p=elisp%2Fgnus.git-

(TopLevel): Bind keywords `:user', `:path' and `:predicate' for old Emacsen;
require `static'.
---

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 33d120a..2d6a503 100644
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -37,6 +37,15 @@
   (autoload 'gnus-error "gnus-util")
   (autoload 'gnus-buffer-live-p "gnus-util"))
 
+(eval-when-compile (require 'static))
+
+(static-condition-case nil
+    :symbol-for-testing-whether-colon-keyword-is-available-or-not
+  (void-variable
+   (defconst :user ':user)
+   (defconst :path ':path)
+   (defconst :predicate ':predicate)))
+
 (defgroup nnmail nil
   "Reading mail with Gnus."
   :group 'gnus)