Fix to get the default value.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d29ffef..4330f0a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+1999-12-01 23:02:48  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * mail-source.el (mail-source-set-common-1): Fix to get the
+       default value.
+
 1999-12-02 00:27:46  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * nnslashdot.el (nnslashdot-read-groups): Unibyte.

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index 7de5354..ce44155 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -194,8 +194,8 @@ the `mail-source-keyword-map' variable."
       (set (mail-source-strip-keyword (setq keyword (car default)))
           (if (setq value (plist-get source keyword))
               (mail-source-value value)
-            (if (setq value (plist-get defaults-1 keyword))
-                (mail-source-value value)
+            (if (setq value (assq  keyword defaults-1))
+                (mail-source-value (cadr value))
               (mail-source-value (cadr default))))))))
 
 (defmacro mail-source-bind-common (source &rest body)