/[emacs]/emacs/lisp/gnus/mail-source.el
ViewVC logotype

Diff of /emacs/lisp/gnus/mail-source.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by zsh, Thu Mar 21 19:11:23 2002 UTC revision 1.13 by lektu, Tue Feb 4 13:06:38 2003 UTC
# Line 92  See Info node `(gnus)Mail Source Specifi Line 92  See Info node `(gnus)Mail Source Specifi
92                          (const :format "" pop)                          (const :format "" pop)
93                          (checklist :tag "Options" :greedy t                          (checklist :tag "Options" :greedy t
94                                     (group :inline t                                     (group :inline t
95                                            (const :format "" :value :server)                                            (const :format "" :value :server)
96                                            (string :tag "Server"))                                            (string :tag "Server"))
97                                     (group :inline t                                     (group :inline t
98                                            (const :format "" :value :port)                                            (const :format "" :value :port)
99                                            (choice :tag "Port"                                            (choice :tag "Port"
100                                                    :value "pop3"                                                    :value "pop3"
101                                                    (number :format "%v")                                                    (number :format "%v")
102                                                    (string :format "%v")))                                                    (string :format "%v")))
103                                     (group :inline t                                     (group :inline t
# Line 119  See Info node `(gnus)Mail Source Specifi Line 119  See Info node `(gnus)Mail Source Specifi
119                                            (const :format "" :value :function)                                            (const :format "" :value :function)
120                                            (function :tag "Function"))                                            (function :tag "Function"))
121                                     (group :inline t                                     (group :inline t
122                                            (const :format ""                                            (const :format ""
123                                                   :value :authentication)                                                   :value :authentication)
124                                            (choice :tag "Authentication"                                            (choice :tag "Authentication"
125                                                    :value apop                                                    :value apop
# Line 145  See Info node `(gnus)Mail Source Specifi Line 145  See Info node `(gnus)Mail Source Specifi
145                                            (string :tag "Server"))                                            (string :tag "Server"))
146                                     (group :inline t                                     (group :inline t
147                                            (const :format "" :value :port)                                            (const :format "" :value :port)
148                                            (choice :tag "Port"                                            (choice :tag "Port"
149                                                    :value 143                                                    :value 143
150                                                    number string))                                                    number string))
151                                     (group :inline t                                     (group :inline t
152                                            (const :format "" :value :user)                                            (const :format "" :value :user)
# Line 171  See Info node `(gnus)Mail Source Specifi Line 171  See Info node `(gnus)Mail Source Specifi
171                                                    :value "INBOX"))                                                    :value "INBOX"))
172                                     (group :inline t                                     (group :inline t
173                                            (const :format "" :value :predicate)                                            (const :format "" :value :predicate)
174                                            (string :tag "Predicate"                                            (string :tag "Predicate"
175                                                    :value "UNSEEN UNDELETED"))                                                    :value "UNSEEN UNDELETED"))
176                                     (group :inline t                                     (group :inline t
177                                            (const :format "" :value :fetchflag)                                            (const :format "" :value :fetchflag)
# Line 187  See Info node `(gnus)Mail Source Specifi Line 187  See Info node `(gnus)Mail Source Specifi
187                    (cons :tag "Webmail server"                    (cons :tag "Webmail server"
188                          (const :format "" webmail)                          (const :format "" webmail)
189                          (checklist :tag "Options" :greedy t                          (checklist :tag "Options" :greedy t
190                                     (group :inline t                                     (group :inline t
191                                           (const :format "" :value :subtype)                                           (const :format "" :value :subtype)
192                                           ;; Should be generated from                                           ;; Should be generated from
193                                           ;; `webmail-type-definition', but we                                           ;; `webmail-type-definition', but we
# Line 739  If ARGS, PROMPT is used as an argument t Line 739  If ARGS, PROMPT is used as an argument t
739  (defvar mail-source-report-new-mail-timer nil)  (defvar mail-source-report-new-mail-timer nil)
740  (defvar mail-source-report-new-mail-idle-timer nil)  (defvar mail-source-report-new-mail-idle-timer nil)
741    
742  (eval-when-compile  (eval-when-compile
743    (if (featurep 'xemacs)    (if (featurep 'xemacs)
744        (require 'itimer)        (require 'itimer)
745      (require 'timer)))      (require 'timer)))
# Line 810  This only works when `display-time' is e Line 810  This only works when `display-time' is e
810              (when (and (not (file-directory-p file))              (when (and (not (file-directory-p file))
811                         (not (if function                         (not (if function
812                                  (funcall function file mail-source-crash-box)                                  (funcall function file mail-source-crash-box)
813                                (let ((coding-system-for-write                                (let ((coding-system-for-write
814                                       mm-text-coding-system)                                       mm-text-coding-system)
815                                      (coding-system-for-read                                      (coding-system-for-read
816                                       mm-text-coding-system))                                       mm-text-coding-system))
817                                  (with-temp-file mail-source-crash-box                                  (with-temp-file mail-source-crash-box
818                                    (insert-file-contents file)                                    (insert-file-contents file)
819                                    (goto-char (point-min))                                    (goto-char (point-min))
820  ;;;                               ;; Unix mail format  ;;;                               ;; Unix mail format
821  ;;;                               (unless (looking-at "\n*From ")  ;;;                               (unless (looking-at "\n*From ")
822  ;;;                                 (insert "From maildir "  ;;;                                 (insert "From maildir "
823  ;;;                                         (current-time-string) "\n"))  ;;;                                         (current-time-string) "\n"))
824  ;;;                               (while (re-search-forward "^From " nil t)  ;;;                               (while (re-search-forward "^From " nil t)
825  ;;;                                 (replace-match ">From "))  ;;;                                 (replace-match ">From "))
# Line 915  This only works when `display-time' is e Line 915  This only works when `display-time' is e
915        (when (eq authentication 'password)        (when (eq authentication 'password)
916          (setq password          (setq password
917                (or password                (or password
918                    (cdr (assoc (format "webmail:%s:%s" subtype user)                    (cdr (assoc (format "webmail:%s:%s" subtype user)
919                                mail-source-password-cache))                                mail-source-password-cache))
920                    (mail-source-read-passwd                    (mail-source-read-passwd
921                     (format "Password for %s at %s: " user subtype))))                     (format "Password for %s at %s: " user subtype))))
922          (when (and password          (when (and password
923                     (not (assoc (format "webmail:%s:%s" subtype user)                     (not (assoc (format "webmail:%s:%s" subtype user)
924                                 mail-source-password-cache)))                                 mail-source-password-cache)))
925            (push (cons (format "webmail:%s:%s" subtype user) password)            (push (cons (format "webmail:%s:%s" subtype user) password)
926                  mail-source-password-cache)))                  mail-source-password-cache)))
927        (webmail-fetch mail-source-crash-box subtype user password)        (webmail-fetch mail-source-crash-box subtype user password)
928        (mail-source-callback callback (symbol-name subtype)))))        (mail-source-callback callback (symbol-name subtype)))))

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26