diff options
| author | Karl Heuer | 1998-09-04 20:38:16 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-09-04 20:38:16 +0000 |
| commit | 65e7e846c918d0c079edf8b45a025636f8dd08be (patch) | |
| tree | 67e98b73440091c3d0636bd66eda1dbf337841e3 | |
| parent | c97a5db406f6993d1cf633be8d17356a2f595b9f (diff) | |
| download | emacs-65e7e846c918d0c079edf8b45a025636f8dd08be.tar.gz emacs-65e7e846c918d0c079edf8b45a025636f8dd08be.zip | |
(rmail-primary-inbox-list): Make the initial
value in the `repeat' alternative a list.
| -rw-r--r-- | lisp/mail/rmail.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index d4b60832697..6e609a6dfc3 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -187,9 +187,9 @@ and the value of the environment variable MAIL overrides it)." | |||
| 187 | ;; Don't use backquote here, because we don't want to need it | 187 | ;; Don't use backquote here, because we don't want to need it |
| 188 | ;; at load time. | 188 | ;; at load time. |
| 189 | :type (list 'choice '(const :tag "Default" nil) | 189 | :type (list 'choice '(const :tag "Default" nil) |
| 190 | (list 'repeat ':value (or (getenv "MAIL") | 190 | (list 'repeat ':value (list (or (getenv "MAIL") |
| 191 | (concat "/var/spool/mail/" | 191 | (concat "/var/spool/mail/" |
| 192 | (getenv "USER"))) | 192 | (getenv "USER")))) |
| 193 | 'file)) | 193 | 'file)) |
| 194 | :group 'rmail-retrieve | 194 | :group 'rmail-retrieve |
| 195 | :group 'rmail-files) | 195 | :group 'rmail-files) |