projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Indent.
[gnus]
/
lisp
/
mail-source.el
diff --git
a/lisp/mail-source.el
b/lisp/mail-source.el
index
0bab31f
..
e841449
100644
(file)
--- a/
lisp/mail-source.el
+++ b/
lisp/mail-source.el
@@
-60,6
+60,7
@@
This variable is a list of mail source specifiers.
See Info node `(gnus)Mail Source Specifiers'."
:group 'mail-source
This variable is a list of mail source specifiers.
See Info node `(gnus)Mail Source Specifiers'."
:group 'mail-source
+ :link '(custom-manual "(gnus)Mail Source Specifiers")
:type `(repeat
(choice :format "%[Value Menu%] %v"
:value (file)
:type `(repeat
(choice :format "%[Value Menu%] %v"
:value (file)
@@
-83,10
+84,16
@@
See Info node `(gnus)Mail Source Specifiers'."
(function :tag "Predicate"))
(group :inline t
(const :format "" :value :prescript)
(function :tag "Predicate"))
(group :inline t
(const :format "" :value :prescript)
- (string :tag "Prescript"))
+ (choice :tag "Prescript"
+ :value nil
+ (string :format "%v")
+ (function :format "%v")))
(group :inline t
(const :format "" :value :postscript)
(group :inline t
(const :format "" :value :postscript)
- (string :tag "Postscript"))
+ (choice :tag "Postscript"
+ :value nil
+ (string :format "%v")
+ (function :format "%v")))
(group :inline t
(const :format "" :value :plugged)
(boolean :tag "Plugged"))))
(group :inline t
(const :format "" :value :plugged)
(boolean :tag "Plugged"))))
@@
-113,10
+120,16
@@
See Info node `(gnus)Mail Source Specifiers'."
(string :tag "Program"))
(group :inline t
(const :format "" :value :prescript)
(string :tag "Program"))
(group :inline t
(const :format "" :value :prescript)
- (string :tag "Prescript"))
+ (choice :tag "Prescript"
+ :value nil
+ (string :format "%v")
+ (function :format "%v")))
(group :inline t
(const :format "" :value :postscript)
(group :inline t
(const :format "" :value :postscript)
- (string :tag "Postscript"))
+ (choice :tag "Postscript"
+ :value nil
+ (string :format "%v")
+ (function :format "%v")))
(group :inline t
(const :format "" :value :function)
(function :tag "Function"))
(group :inline t
(const :format "" :value :function)
(function :tag "Function"))
@@
-465,7
+478,12
@@
Return the number of files that were found."
(error
(unless (yes-or-no-p
(format "Mail source %s error (%s). Continue? "
(error
(unless (yes-or-no-p
(format "Mail source %s error (%s). Continue? "
- source
+ (if (memq ':password source)
+ (let ((s (copy-sequence source)))
+ (setcar (cdr (memq ':password s))
+ "********")
+ s)
+ source)
(cadr err)))
(error "Cannot get new mail"))
0)))))))))
(cadr err)))
(error "Cannot get new mail"))
0)))))))))
@@
-602,7
+620,7
@@
If ARGS, PROMPT is used as an argument to `format'."
(defun mail-source-run-script (script spec &optional delay)
(when script
(defun mail-source-run-script (script spec &optional delay)
(when script
- (if (
and (symbolp script) (fboundp script)
)
+ (if (
functionp script
)
(funcall script)
(mail-source-call-script
(format-spec script spec))))
(funcall script)
(mail-source-call-script
(format-spec script spec))))