(eval-when-compile (require 'cl))
-(require 'read-passwd)
-
(eval-and-compile
(defvar gnus-offline-lang
(cond ((and (featurep 'meadow)
"(add-hook"
"'gnus-before-startup-hook"
"(lambda () (setq nnmail-spool-file nil)
- (setq mail-sources nil)))")))
+ (setq mail-sources nil)))")))
;; Write stting about mail-source.el
(insert "(setq gnus-offline-mail-source '"
Gnus, you can set a specifier using the kerword :program as shown
below:
- (pop :program \"movemail -pf po:%u %t %p\")
+ (pop :program \"movemail -pf po:%u %t %p\")
If you want to know more about mail source specifiers and keywords,
click the button below.")
(movemail \e$B$J$I\e(B) \e$B$r;H$$$?$$!"$H$$$&>l9g$K$O!"\e(B:program \e$B$r$$$&%-!<%o!<\e(B
\e$B%I$r;XDj$7$F0J2<$NMM$K5-=R$7$^$9!#\e(B
- (pop :program \"movemail -pf po:%u %t %p\")
+ (pop :program \"movemail -pf po:%u %t %p\")
mail source specifier \e$B$H$+>e5-$N$h$&$J%-!<%o!<%I$K$D$$$F$b$C$H$h$/\e(B
\e$BCN$j$?$$>l9g$O!"0J2<$N%\%?%s$r%/%j%C%/$7$F$/$@$5$$!#\e(B(Info \e$B$N3:Ev2U=j\e(B
;; Create a list of mail source specifiers.
(setq num-of-address
(read-from-minibuffer (gnus-ofsetup-gettext 'setup-11)))
- (setq i (setq n (string-to-int num-of-address)))
+ (setq i (setq n (string-to-number num-of-address)))
;;
(while (> i 0)
(let* ((j (- n (1- i)))
exec-directory "movemail"))
(setq args (read-from-minibuffer
(format "<%d of %d> %s" j n
- (gnus-ofsetup-gettext 'setup-18) "-pf")))
+ (gnus-ofsetup-gettext 'setup-18)) "-pf"))
(setq program (format "%s %s %s %s %s"
prog args "po:%u" "%t" "%p"))))
(when (string= type "imap")
(choice :tag ,(gnus-ofsetup-gettext 'param-save-passwd-1)
:value ,(if (memq 'mail-source-password-cache gnus-variable-list)
t
- nil)
+ nil)
(const :tag ,(gnus-ofsetup-gettext 'param-save-passwd-2) t)
(const :tag ,(gnus-ofsetup-gettext 'param-save-passwd-3) nil))
,(gnus-ofsetup-gettext 'param-save-passwd-4))
(const :format "" ,(nth 0 entry))
,(nth 1 entry)))
params)))
- (kill-buffer (gnus-get-buffer-create "*Gnus Offline Customize*"))
- (switch-to-buffer (gnus-get-buffer-create "*Gnus Offline Customize*"))
- (gnus-custom-mode)
- (widget-insert (gnus-ofsetup-gettext 'customize-1))
- (widget-create 'push-button
+ (kill-buffer (gnus-get-buffer-create "*Gnus Offline Customize*"))
+ (switch-to-buffer (gnus-get-buffer-create "*Gnus Offline Customize*"))
+ (gnus-custom-mode)
+ (widget-insert (gnus-ofsetup-gettext 'customize-1))
+ (widget-create 'push-button
:tag (gnus-ofsetup-gettext 'customize-2)
:help-echo (gnus-ofsetup-gettext 'customize-3)
:action 'gnus-ofsetup-customize-done)
- (widget-insert "\n\n")
- (make-local-variable 'gnus-ofsetup-params)
- (setq gnus-ofsetup-params
- (widget-create 'group
- `(set :inline t
- :greedy t
- :tag ,(gnus-ofsetup-gettext 'customize-4)
- :format "%t:\n%h%v"
- :doc ,(gnus-ofsetup-gettext 'customize-5)
- ,@types)))
-
- (widget-create 'info-link
- :help-echo (gnus-ofsetup-gettext 'customize-6)
- :tag "<Info> mail sources"
- (if (string-match "^ja" gnus-offline-lang)
- "(gnus-ja)Mail Sources"
- "(gnus)Mail Sources"))
-
- (use-local-map widget-keymap)
- (local-set-key "q" 'bury-buffer)
- (widget-setup)
- (goto-char (point-min))))
+ (widget-insert "\n\n")
+ (make-local-variable 'gnus-ofsetup-params)
+ (setq gnus-ofsetup-params
+ (widget-create 'group
+ `(set :inline t
+ :greedy t
+ :tag ,(gnus-ofsetup-gettext 'customize-4)
+ :format "%t:\n%h%v"
+ :doc ,(gnus-ofsetup-gettext 'customize-5)
+ ,@types)))
+
+ (widget-create 'info-link
+ :help-echo (gnus-ofsetup-gettext 'customize-6)
+ :tag "<Info> mail sources"
+ (if (string-match "^ja" gnus-offline-lang)
+ "(gnus-ja)Mail Sources"
+ "(gnus)Mail Sources"))
+
+ (use-local-map widget-keymap)
+ (local-set-key "q" 'bury-buffer)
+ (widget-setup)
+ (goto-char (point-min))))
(defun gnus-ofsetup-customize-done (&rest ignore)
"Apply changes and bury the buffer."
'(add-hook 'gnus-after-getting-new-news-hook 'gnus-offline-after-get-new-news))
(eval-after-load "message"
'(add-hook 'message-send-hook 'gnus-offline-message-add-header))
-(setq mail-source-read-passwd 'read-pw-read-passwd)
-(add-hook 'gnus-setup-news-hook 'read-pw-set-mail-source-passwd-cache)
(provide 'gnus-ofsetup)