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 |
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 |
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) |
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) |
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 |
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))) |
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 ")) |
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))))) |