Mercurial > emacs
comparison lisp/gnus/mail-source.el @ 90428:a8190f7e546e
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 285-296)
- Update from CVS
- Merge from gnus--rel--5.10
- Update from CVS: admin/FOR-RELEASE: Update refcard section.
* gnus--rel--5.10 (patch 102-104)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-64
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 07 Jun 2006 18:05:10 +0000 |
| parents | c5406394f567 70b055c73c8c |
| children | 95d0cdf160ea |
comparison
equal
deleted
inserted
replaced
| 90427:ddb25860d044 | 90428:a8190f7e546e |
|---|---|
| 61 "*Where the mail backends will look for incoming mail. | 61 "*Where the mail backends will look for incoming mail. |
| 62 This variable is a list of mail source specifiers. | 62 This variable is a list of mail source specifiers. |
| 63 See Info node `(gnus)Mail Source Specifiers'." | 63 See Info node `(gnus)Mail Source Specifiers'." |
| 64 :group 'mail-source | 64 :group 'mail-source |
| 65 :link '(custom-manual "(gnus)Mail Source Specifiers") | 65 :link '(custom-manual "(gnus)Mail Source Specifiers") |
| 66 :type `(repeat | 66 :type `(choice |
| 67 (choice :format "%[Value Menu%] %v" | 67 (const nil) |
| 68 :value (file) | 68 (repeat |
| 69 (cons :tag "Spool file" | 69 (choice :format "%[Value Menu%] %v" |
| 70 (const :format "" file) | 70 :value (file) |
| 71 (checklist :tag "Options" :greedy t | 71 (cons :tag "Spool file" |
| 72 (group :inline t | 72 (const :format "" file) |
| 73 (const :format "" :value :path) | 73 (checklist :tag "Options" :greedy t |
| 74 file))) | 74 (group :inline t |
| 75 (cons :tag "Several files in a directory" | 75 (const :format "" :value :path) |
| 76 (const :format "" directory) | 76 file))) |
| 77 (checklist :tag "Options" :greedy t | 77 (cons :tag "Several files in a directory" |
| 78 (group :inline t | 78 (const :format "" directory) |
| 79 (const :format "" :value :path) | 79 (checklist :tag "Options" :greedy t |
| 80 (directory :tag "Path")) | 80 (group :inline t |
| 81 (group :inline t | 81 (const :format "" :value :path) |
| 82 (const :format "" :value :suffix) | 82 (directory :tag "Path")) |
| 83 (string :tag "Suffix")) | 83 (group :inline t |
| 84 (group :inline t | 84 (const :format "" :value :suffix) |
| 85 (const :format "" :value :predicate) | 85 (string :tag "Suffix")) |
| 86 (function :tag "Predicate")) | 86 (group :inline t |
| 87 (group :inline t | 87 (const :format "" :value :predicate) |
| 88 (const :format "" :value :prescript) | 88 (function :tag "Predicate")) |
| 89 (choice :tag "Prescript" | 89 (group :inline t |
| 90 :value nil | 90 (const :format "" :value :prescript) |
| 91 (string :format "%v") | 91 (choice :tag "Prescript" |
| 92 (function :format "%v"))) | 92 :value nil |
| 93 (group :inline t | 93 (string :format "%v") |
| 94 (const :format "" :value :postscript) | 94 (function :format "%v"))) |
| 95 (choice :tag "Postscript" | 95 (group :inline t |
| 96 :value nil | 96 (const :format "" :value :postscript) |
| 97 (string :format "%v") | 97 (choice :tag "Postscript" |
| 98 (function :format "%v"))) | 98 :value nil |
| 99 (group :inline t | 99 (string :format "%v") |
| 100 (const :format "" :value :plugged) | 100 (function :format "%v"))) |
| 101 (boolean :tag "Plugged")))) | 101 (group :inline t |
| 102 (cons :tag "POP3 server" | 102 (const :format "" :value :plugged) |
| 103 (const :format "" pop) | 103 (boolean :tag "Plugged")))) |
| 104 (checklist :tag "Options" :greedy t | 104 (cons :tag "POP3 server" |
| 105 (group :inline t | 105 (const :format "" pop) |
| 106 (const :format "" :value :server) | 106 (checklist :tag "Options" :greedy t |
| 107 (string :tag "Server")) | 107 (group :inline t |
| 108 (group :inline t | 108 (const :format "" :value :server) |
| 109 (const :format "" :value :port) | 109 (string :tag "Server")) |
| 110 (choice :tag "Port" | 110 (group :inline t |
| 111 :value "pop3" | 111 (const :format "" :value :port) |
| 112 (number :format "%v") | 112 (choice :tag "Port" |
| 113 (string :format "%v"))) | 113 :value "pop3" |
| 114 (group :inline t | 114 (number :format "%v") |
| 115 (const :format "" :value :user) | 115 (string :format "%v"))) |
| 116 (string :tag "User")) | 116 (group :inline t |
| 117 (group :inline t | 117 (const :format "" :value :user) |
| 118 (const :format "" :value :password) | 118 (string :tag "User")) |
| 119 (string :tag "Password")) | 119 (group :inline t |
| 120 (group :inline t | 120 (const :format "" :value :password) |
| 121 (const :format "" :value :program) | 121 (string :tag "Password")) |
| 122 (string :tag "Program")) | 122 (group :inline t |
| 123 (group :inline t | 123 (const :format "" :value :program) |
| 124 (const :format "" :value :prescript) | 124 (string :tag "Program")) |
| 125 (choice :tag "Prescript" | 125 (group :inline t |
| 126 :value nil | 126 (const :format "" :value :prescript) |
| 127 (string :format "%v") | 127 (choice :tag "Prescript" |
| 128 (function :format "%v"))) | 128 :value nil |
| 129 (group :inline t | 129 (string :format "%v") |
| 130 (const :format "" :value :postscript) | 130 (function :format "%v"))) |
| 131 (choice :tag "Postscript" | 131 (group :inline t |
| 132 :value nil | 132 (const :format "" :value :postscript) |
| 133 (string :format "%v") | 133 (choice :tag "Postscript" |
| 134 (function :format "%v"))) | 134 :value nil |
| 135 (group :inline t | 135 (string :format "%v") |
| 136 (const :format "" :value :function) | 136 (function :format "%v"))) |
| 137 (function :tag "Function")) | 137 (group :inline t |
| 138 (group :inline t | 138 (const :format "" :value :function) |
| 139 (const :format "" | 139 (function :tag "Function")) |
| 140 :value :authentication) | 140 (group :inline t |
| 141 (choice :tag "Authentication" | 141 (const :format "" |
| 142 :value apop | 142 :value :authentication) |
| 143 (const password) | 143 (choice :tag "Authentication" |
| 144 (const apop))) | 144 :value apop |
| 145 (group :inline t | 145 (const password) |
| 146 (const :format "" :value :plugged) | 146 (const apop))) |
| 147 (boolean :tag "Plugged")))) | 147 (group :inline t |
| 148 (cons :tag "Maildir (qmail, postfix...)" | 148 (const :format "" :value :plugged) |
| 149 (const :format "" maildir) | 149 (boolean :tag "Plugged")))) |
| 150 (checklist :tag "Options" :greedy t | 150 (cons :tag "Maildir (qmail, postfix...)" |
| 151 (group :inline t | 151 (const :format "" maildir) |
| 152 (const :format "" :value :path) | 152 (checklist :tag "Options" :greedy t |
| 153 (directory :tag "Path")) | 153 (group :inline t |
| 154 (group :inline t | 154 (const :format "" :value :path) |
| 155 (const :format "" :value :plugged) | 155 (directory :tag "Path")) |
| 156 (boolean :tag "Plugged")))) | 156 (group :inline t |
| 157 (cons :tag "IMAP server" | 157 (const :format "" :value :plugged) |
| 158 (const :format "" imap) | 158 (boolean :tag "Plugged")))) |
| 159 (checklist :tag "Options" :greedy t | 159 (cons :tag "IMAP server" |
| 160 (group :inline t | 160 (const :format "" imap) |
| 161 (const :format "" :value :server) | 161 (checklist :tag "Options" :greedy t |
| 162 (string :tag "Server")) | 162 (group :inline t |
| 163 (group :inline t | 163 (const :format "" :value :server) |
| 164 (const :format "" :value :port) | 164 (string :tag "Server")) |
| 165 (choice :tag "Port" | 165 (group :inline t |
| 166 :value 143 | 166 (const :format "" :value :port) |
| 167 number string)) | 167 (choice :tag "Port" |
| 168 (group :inline t | 168 :value 143 |
| 169 (const :format "" :value :user) | 169 number string)) |
| 170 (string :tag "User")) | 170 (group :inline t |
| 171 (group :inline t | 171 (const :format "" :value :user) |
| 172 (const :format "" :value :password) | 172 (string :tag "User")) |
| 173 (string :tag "Password")) | 173 (group :inline t |
| 174 (group :inline t | 174 (const :format "" :value :password) |
| 175 (const :format "" :value :stream) | 175 (string :tag "Password")) |
| 176 (choice :tag "Stream" | 176 (group :inline t |
| 177 :value network | 177 (const :format "" :value :stream) |
| 178 ,@mail-source-imap-streams)) | 178 (choice :tag "Stream" |
| 179 (group :inline t | 179 :value network |
| 180 (const :format "" :value :program) | 180 ,@mail-source-imap-streams)) |
| 181 (string :tag "Program")) | 181 (group :inline t |
| 182 (group :inline t | 182 (const :format "" :value :program) |
| 183 (const :format "" | 183 (string :tag "Program")) |
| 184 :value :authenticator) | 184 (group :inline t |
| 185 (choice :tag "Authenticator" | 185 (const :format "" |
| 186 :value login | 186 :value :authenticator) |
| 187 ,@mail-source-imap-authenticators)) | 187 (choice :tag "Authenticator" |
| 188 (group :inline t | 188 :value login |
| 189 (const :format "" :value :mailbox) | 189 ,@mail-source-imap-authenticators)) |
| 190 (string :tag "Mailbox" | 190 (group :inline t |
| 191 :value "INBOX")) | 191 (const :format "" :value :mailbox) |
| 192 (group :inline t | 192 (string :tag "Mailbox" |
| 193 (const :format "" :value :predicate) | 193 :value "INBOX")) |
| 194 (string :tag "Predicate" | 194 (group :inline t |
| 195 :value "UNSEEN UNDELETED")) | 195 (const :format "" :value :predicate) |
| 196 (group :inline t | 196 (string :tag "Predicate" |
| 197 (const :format "" :value :fetchflag) | 197 :value "UNSEEN UNDELETED")) |
| 198 (string :tag "Fetchflag" | 198 (group :inline t |
| 199 :value "\\Deleted")) | 199 (const :format "" :value :fetchflag) |
| 200 (group :inline t | 200 (string :tag "Fetchflag" |
| 201 (const :format "" | 201 :value "\\Deleted")) |
| 202 :value :dontexpunge) | 202 (group :inline t |
| 203 (boolean :tag "Dontexpunge")) | 203 (const :format "" |
| 204 (group :inline t | 204 :value :dontexpunge) |
| 205 (const :format "" :value :plugged) | 205 (boolean :tag "Dontexpunge")) |
| 206 (boolean :tag "Plugged")))) | 206 (group :inline t |
| 207 (cons :tag "Webmail server" | 207 (const :format "" :value :plugged) |
| 208 (const :format "" webmail) | 208 (boolean :tag "Plugged")))) |
| 209 (checklist :tag "Options" :greedy t | 209 (cons :tag "Webmail server" |
| 210 (group :inline t | 210 (const :format "" webmail) |
| 211 (const :format "" :value :subtype) | 211 (checklist :tag "Options" :greedy t |
| 212 ;; Should be generated from | 212 (group :inline t |
| 213 ;; `webmail-type-definition', but we | 213 (const :format "" :value :subtype) |
| 214 ;; can't require webmail without W3. | 214 ;; Should be generated from |
| 215 (choice :tag "Subtype" | 215 ;; `webmail-type-definition', but we |
| 216 :value hotmail | 216 ;; can't require webmail without W3. |
| 217 (const hotmail) | 217 (choice :tag "Subtype" |
| 218 (const yahoo) | 218 :value hotmail |
| 219 (const netaddress) | 219 (const hotmail) |
| 220 (const netscape) | 220 (const yahoo) |
| 221 (const my-deja))) | 221 (const netaddress) |
| 222 (group :inline t | 222 (const netscape) |
| 223 (const :format "" :value :user) | 223 (const my-deja))) |
| 224 (string :tag "User")) | 224 (group :inline t |
| 225 (group :inline t | 225 (const :format "" :value :user) |
| 226 (const :format "" :value :password) | 226 (string :tag "User")) |
| 227 (string :tag "Password")) | 227 (group :inline t |
| 228 (group :inline t | 228 (const :format "" :value :password) |
| 229 (const :format "" | 229 (string :tag "Password")) |
| 230 :value :dontexpunge) | 230 (group :inline t |
| 231 (boolean :tag "Dontexpunge")) | 231 (const :format "" |
| 232 (group :inline t | 232 :value :dontexpunge) |
| 233 (const :format "" :value :plugged) | 233 (boolean :tag "Dontexpunge")) |
| 234 (boolean :tag "Plugged"))))))) | 234 (group :inline t |
| 235 (const :format "" :value :plugged) | |
| 236 (boolean :tag "Plugged")))))))) | |
| 235 | 237 |
| 236 (defcustom mail-source-ignore-errors nil | 238 (defcustom mail-source-ignore-errors nil |
| 237 "*Ignore errors when querying mail sources. | 239 "*Ignore errors when querying mail sources. |
| 238 If nil, the user will be prompted when an error occurs. If non-nil, | 240 If nil, the user will be prompted when an error occurs. If non-nil, |
| 239 the error will be ignored." | 241 the error will be ignored." |