(setq wl-icon-dir "~/work/wl/etc")
;; @r{\e$B%a!<%k$rAw?.$9$k\e(B SMTP \e$B%5!<%P!#\e(B \e$B=i4|@_Dj$O\e(B @code{nil}\e$B!#\e(B}
-(setq wl-smtp-posting-server "your.smtp.server.com")
+(setq wl-smtp-posting-server "your.smtp.example.com")
;; @r{\e$B%K%e!<%9Ej9FMQ$N\e(B NNTP \e$B%5!<%P!#\e(B \e$B=i4|@_Dj$O\e(B @code{nil}\e$B!#\e(B}
-(setq wl-nntp-posting-server "your.nntp.server.com")
+(setq wl-nntp-posting-server "your.nntp.example.com")
@end group
@end lisp
%inbox "\e$B<u?.H"\e(B"
+trash "\e$B%4%_H"\e(B"
+draft "\e$BAp9F\e(B"
-%#mh/Backup@@my.imap.server.com "\e$BAw?.:Q$_\e(B"
+%#mh/Backup@@my.imap.example.com "\e$BAw?.:Q$_\e(B"
# \e$B%0%k!<%W$NDj5A\e(B
Emacsen@{
%#mh/spool/wl "Wanderlust ML"
%#mh/spool/elips "ELIPS ML"
%#mh/spool/apel-ja "APEL (\e$BF|K\8l\e(B) ML"
%#mh/spool/xemacs-beta "XEmacs \e$B%Y!<%?\e(B"
- -fj.news.reader.gnus@@other.nntp.server.com
+ -fj.news.reader.gnus@@other.nntp.example.com
*-fj.editor.xemacs,-fj.editor.mule,-fj.editor.emacs "fj \e$B$N\e(B Emacsen"
@}
#
@findex wl-summary-down
\e$B2<J}8~$K$"$kL$FI$b$7$/$O\e(B @samp{$}\e$B%^!<%/$D$-$N%a%C%;!<%8$X0\F0$7$^$9!#\e(B
\e$B%*%U%i%$%s%b!<%I$N$H$-$K$O!"%-%c%C%7%e$5$l$F$$$J$$%a%C%;!<%8$K0\F0$7$^$;$s!#\e(B
+\e$B$?$@$7!"$^$H$a=hM}%^!<%/\e(B @samp{*} \e$B$,$D$$$?%a%C%;!<%8$,$"$k>l9g$O!"\e(B
+\e$B$^$H$a=hM}%^!<%/\e(B @samp{*} \e$B$,$D$$$?%a%C%;!<%8$KM%@hE*$K0\F0$7$^$9!#\e(B
+\e$B$3$N5sF0$O\e(B @code{wl-summary-move-order}\e$B$NCM$K1~$8$FJQ$o$j$^$9!#\e(B
(@code{wl-summary-down})
@item P
@findex wl-summary-up
\e$B>eJ}8~$K$"$kL$FI$b$7$/$O\e(B @samp{$}\e$B%^!<%/$D$-$N%a%C%;!<%8$X0\F0$7$^$9!#\e(B
\e$B%*%U%i%$%s%b!<%I$N$H$-$K$O!"%-%c%C%7%e$5$l$F$$$J$$%a%C%;!<%8$K0\F0$7$^$;$s!#\e(B
+\e$B$?$@$7!"$^$H$a=hM}%^!<%/\e(B @samp{*} \e$B$,$D$$$?%a%C%;!<%8$,$"$k>l9g$O!"\e(B
+\e$B$^$H$a=hM}%^!<%/\e(B @samp{*} \e$B$,$D$$$?%a%C%;!<%8$KM%@hE*$K0\F0$7$^$9!#\e(B
+\e$B$3$N5sF0$O\e(B @code{wl-summary-move-order}\e$B$NCM$K1~$8$FJQ$o$j$^$9!#\e(B
(@code{wl-summary-up})
@item w
@lisp
@group
(setq wl-draft-config-alist
- '(((string-match "aaa.ne.jp$" (system-name))
+ '(((string-match "aaa.example.com$" (system-name))
;; @r{\e$B<0$,\e(Bnon-nil\e$B$J$iE,MQ$9$k\e(B}
(wl-smtp-posting-server . "mailserver-B")
(wl-nntp-posting-server . "newsserver-B")
;; @r{\e$B0l;~E*$JJQ?t$N@_Dj\e(B}
)
- ("^To: .*user@@aaa.bbb.com"
+ ("^To: .*user@@aaa.bbb.example.com"
;; @r{\e$B%I%i%U%H%P%C%U%!$N%X%C%@$K%^%C%A$9$l$PE,MQ$9$k\e(B}
("Organization" . (format "Go %s" my-webpage)))
;; @r{elisp \e$B<0$,=q$1$k\e(B (eval \e$B$7$F$$$k$@$1\e(B)}
(body . " \e$B!{!{$G$9!#\e(B\n"))
("report"
(template . "default") ;; @r{(a)}
- ("To" . "jousi@@kaisha.jp")
+ ("To" . "jousi@@example.com")
("Subject" . "\e$BJs9p\e(B")
(body-file . "~/work/report.txt")
)
@end group
@end example
-You have to install APEL, FLIM and SEMI in this order. Generally
+You have to install APEL, FLIM and SEMI in this order. Generally,
@samp{make install} will do the job. (In XEmacs 21, @samp{make
install-package}.)
@end itemize
You can also use many other FLIM/SEMI variants. Combination of the
-latest versions should work. For example, following combination is
+latest versions should work. For example, the following combination are
confirmed to work.
@itemize @minus
(setq wl-icon-dir "~/work/wl/etc")
;; @r{SMTP server for mail posting. Default: @code{nil}}
-(setq wl-smtp-posting-server "your.smtp.server.com")
+(setq wl-smtp-posting-server "your.smtp.example.com")
;; @r{NNTP server for news posting. Default: @code{nil}}
-(setq wl-nntp-posting-server "your.nntp.server.com")
+(setq wl-nntp-posting-server "your.nntp.example.com")
@end group
@end lisp
%inbox "Inbox"
+trash "Trash"
+draft "Drafts"
-%#mh/Backup@@my.imap.server.com "Sent"
+%#mh/Backup@@my.imap.example.com "Sent"
# Folder Group
Emacsen@{
%#mh/spool/wl "Wanderlust ML"
%#mh/spool/elips "ELIPS ML"
%#mh/spool/apel-ja "APEL Japanese ML"
%#mh/spool/xemacs-beta "XEmacs beta"
- -fj.news.reader.gnus@@other.nntp.server.com "Gnus Net news"
+ -fj.news.reader.gnus@@other.nntp.example.com "Gnus Net news"
*-fj.editor.xemacs,-fj.editor.mule,-fj.editor.emacs "fj's Emacsen"
@}
#
@findex wl-summary-down
Move cursor to the downward message which is unread or marked
as @samp{$}.
+In the offline mode, cursor is not moved to the messages which are not cached
+yet.
+If there are messages which have target mark @samp{*} in the summary,
+cursor is moved to the downward message which have a target mark.
+This behavior is changed according to the value of @code{wl-summary-move-order}.
(@code{wl-summary-down})
@item P
@findex wl-summary-up
Move cursor to the upward message which is unread or marked
as @samp{$}.
+In the offline mode, cursor is not moved to the messages which are not cached
+yet.
+If there are messages which have target mark @samp{*} in the summary,
+cursor is moved to the downward message which have a target mark.
+This behavior is changed according to the value of @code{wl-summary-move-order}.
(@code{wl-summary-up})
@item w
@lisp
@group
(setq wl-draft-config-alist
- '(((string-match "aaa.ne.jp$" (system-name))
+ '(((string-match "aaa.example.com$" (system-name))
;; @r{applied if the expression is non-nil}
(wl-smtp-posting-server . "mailserver-B")
(wl-nntp-posting-server . "newsserver-B")
;; @r{settings of temporary variables}
)
- ("^To: .*user@@aaa.bbb.com"
+ ("^To: .*user@@aaa.bbb.example.com"
;; @r{applied if it matches the header of the draft buffer}
("Organization" . (format "Go %s" my-webpage)))
;; @r{you can write elisp expressions here (eval only)}
(body . "Hello.\n"))
("report"
(template . "default") ;; @r{(a)}
- ("To" . "jousi@@kaisha.jp")
+ ("To" . "boss@@example.com")
("Subject" . "Report")
(body-file . "~/work/report.txt")
)
+2001-03-01 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * mmimap.el (mmimap-parse-parameters-from-list): Define as alias for
+ `mime-decode-parameters' instead of `mime-decode-parameter-plist'.
+
+ * elmo-msgdb.el (elmo-msgdb-search-internal-primitive): Bind
+ case-fold-search.
+
2001-02-28 Yuuichi Teranishi <teranisi@gohome.org>
* elmo-util.el (elmo-resque-obsolete-variable): Use defvaralias if
(defun elmo-msgdb-search-internal-primitive (condition entity number-list)
(let ((key (elmo-filter-key condition))
+ (case-fold-search t)
result)
(cond
((string= key "last")
(reverse node-id)
"."))))
-(static-if (fboundp 'mime-decode-parameter-plist)
- (defalias 'mmimap-parse-parameters-from-list 'mime-decode-parameter-plist)
+(static-if (fboundp 'mime-decode-parameters)
+ (defalias 'mmimap-parse-parameters-from-list 'mime-decode-parameters)
(defun mmimap-parse-parameters-from-list (attrlist)
"Parse parameters from ATTRLIST."
(let (ret-val)
+2001-03-01 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * wl-folder.el (wl-make-plugged-alist): Use `wl-nntp-posting-port'
+ instead of `elmo-nntp-default-port'.
+
+ * wl-vars.el: Fixed some doc strings.
+
2001-02-28 Yuuichi Teranishi <teranisi@gohome.org>
* wl-summary.el (wl-summary-prefetch-msg): Use
* wl-summary.el (wl-summary-default-subject-filter): Fix for `Re>'.
* wl-vars.el (wl-summary-search-parent-by-subject-regexp): Ditto.
+2001-03-01 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * wl-summary.el (wl-summary-next-message):
+ Return next message number when wl-summary-move-order is nil.
+
+2001-02-28 Akihiro MOTOKI <mokkun@iname.com>
+
+ * wl-summary.el (wl-summary-move-spec-plugged-alist): Renamed from
+ `wl-summary-move-spec-alist'.
+ (wl-summary-move-spec-unplugged-alist): New variable
+ (Move spec for unplugged status).
+ (wl-summary-next-message): Use `wl-summary-move-spec-plugged-alist'
+ if plugged, `wl-summary-move-spec-unplugged-alist' is unplugged.
+
+2001-03-01 OKAZAKI Tetsurou <okazaki@be.to>
+
+ * wl-e21.el (wl-draft-overload-menubar): "FCC" -> "Fcc".
+ * wl-mule.el (wl-draft-overload-menubar): Ditto.
+
+2001-02-28 OKAZAKI Tetsurou <okazaki@be.to>
+
+ * wl-mime.el (wl-draft-preview-message): Use `function' instead of
+ simple quotation to quote the anonymous function.
+ * tm-wl.el (wl-draft-preview-message): Ditto.
+
+2001-02-25 OKAZAKI Tetsurou <okazaki@be.to>
+
+ * wl-highlight.el (wl-highlight-summary-displaying): Optimize;
+ Eliminate redundant `save-excursion'.
+ (wl-highlight-summary-current-line): Ditto.
+
+ * wl-highlight.el (wl-highlight-summary-current-line): Avoid
+ accessing match data when `looking-at' failed.
+
+ * wl-draft.el (wl-draft-delete): Use `match-string' instead of
+ `elmo-match-string' where users don't care about the speed.
+ (wl-draft-save): Ditto.
+
2001-02-24 Yuuichi Teranishi <teranisi@gohome.org>
* wl-util.el (wl-regexp-opt): New function.
(mime-viewer/ignored-field-regexp "^:$")
(mime-editor/translate-buffer-hook
(append
- '((lambda ()
+ (list
+ (function
+ (lambda ()
(let ((wl-draft-config-exec-flag config-exec-flag))
(run-hooks 'wl-draft-send-hook)
(setq recipients-message
"$")
nil t)
(point)))
- ", "))))))
+ ", ")))))))
mime-editor/translate-buffer-hook)))
(mime-editor/preview-message)
(let ((buffer-read-only nil))
(let ((msg (and wl-draft-buffer-file-name
(string-match "[0-9]+$" wl-draft-buffer-file-name)
(string-to-int
- (elmo-match-string 0 wl-draft-buffer-file-name)))))
+ (match-string 0 wl-draft-buffer-file-name)))))
(wl-draft-config-info-operation msg 'delete))))
(set-buffer-modified-p nil) ; force kill
(kill-buffer editing-buffer))))
(wl-draft-config-info-operation
(and (string-match "[0-9]+$" wl-draft-buffer-file-name)
(string-to-int
- (elmo-match-string 0 wl-draft-buffer-file-name)))
+ (match-string 0 wl-draft-buffer-file-name)))
'save))
(defun wl-draft-mimic-kill-buffer ()
(define-key keymap [menu-bar mail signature]
'("Insert Signature" . insert-signature))
(define-key keymap [menu-bar headers fcc]
- '("FCC" . wl-draft-fcc))))
+ '("Fcc" . wl-draft-fcc))))
(defun wl-draft-mode-setup ()
(require 'derived)
(setq unread (or (cadr nums) 0))
(if (or (not unread-only)
(or (< 0 new) (< 0 unread)))
- (save-window-excursion
- (save-excursion
- (let ((wl-summary-buffer-name (concat
- wl-summary-buffer-name
- (symbol-name this-command))))
+ (let ((wl-summary-buffer-name (concat
+ wl-summary-buffer-name
+ (symbol-name this-command))))
+ (save-window-excursion
+ (save-excursion
(wl-summary-goto-folder-subr entity
(wl-summary-get-sync-range
folder)
(if (get-buffer wl-folder-buffer-name)
(switch-to-buffer wl-folder-buffer-name)
(switch-to-buffer (get-buffer-create wl-folder-buffer-name))
+ (set-buffer wl-folder-buffer-name)
(wl-folder-mode)
- (sit-for 0)
(wl-folder-init)
- (set-buffer wl-folder-buffer-name)
+ (sit-for 0)
(let ((inhibit-read-only t)
(buffer-read-only nil))
(erase-buffer)
(setcdr (assoc (car wl-folder-entity) wl-folder-group-alist) t)
(save-excursion
(wl-folder-insert-entity " " wl-folder-entity)))
- (sit-for 0)
(set-buffer-modified-p nil)
(setq initialize t))
initialize))
(elmo-set-plugged wl-plugged
wl-nntp-posting-server
wl-nntp-posting-stream-type
- elmo-nntp-default-port
+ wl-nntp-posting-port
nil nil "nntp" add))
(run-hooks 'wl-make-plugged-hook)))
(wl-delete-all-overlays)
(let (bol eol ov)
(save-excursion
+ (end-of-line)
+ (setq eol (point))
(beginning-of-line)
(setq bol (point))
- (save-excursion (end-of-line) (setq eol (point)))
(setq ov (make-overlay bol eol))
(overlay-put ov 'face 'wl-highlight-summary-displaying-face)
(overlay-put ov 'evaporate t)
wl-highlight-thread-indent-string-regexp
"\\)[[<]"))
fregexp fsymbol bol eol matched thread-top looked-at)
+ (end-of-line)
+ (setq eol (point))
(beginning-of-line)
(setq bol (point))
- (save-excursion (end-of-line) (setq eol (point)))
(if smark
(setq status-mark smark)
(setq looked-at (looking-at sregexp))
- (setq status-mark (buffer-substring (match-beginning 2)
- (match-end 2))))
+ (when looked-at
+ (setq status-mark (buffer-substring (match-beginning 2)
+ (match-end 2)))))
(when temp-too
(unless looked-at
(setq looked-at (looking-at sregexp)))
(let* (recipients-message
(config-exec-flag wl-draft-config-exec-flag)
(mime-display-header-hook 'wl-highlight-headers)
- mime-view-ignored-field-list ; all header.
+ mime-view-ignored-field-list ; all header.
(mime-edit-translate-buffer-hook
(append
- '((lambda ()
+ (list
+ (function
+ (lambda ()
(let ((wl-draft-config-exec-flag config-exec-flag))
(run-hooks 'wl-draft-send-hook)
(setq recipients-message
"$")
nil t)
(point)))
- ", "))))))
+ ", ")))))))
mime-edit-translate-buffer-hook)))
(mime-edit-preview-message)
(let ((buffer-read-only nil))
(local-set-key [menu-bar mail signature]
'("Insert Signature" . insert-signature))
(local-set-key [menu-bar headers fcc]
- '("FCC" . wl-draft-fcc)))
+ '("Fcc" . wl-draft-fcc)))
(defun wl-draft-overload-functions ()
(wl-mode-line-buffer-identification)
(wl-match-string 1 wday-str)
(elmo-date-get-week year month mday))))
-(defvar wl-summary-move-spec-alist
+(defvar wl-summary-move-spec-plugged-alist
(` ((new . ((t . nil)
(p . (, wl-summary-new-mark))
(p . (, (wl-regexp-opt
wl-summary-unread-cached-mark))))
(p . (, (regexp-quote wl-summary-important-mark))))))))
+(defvar wl-summary-move-spec-unplugged-alist
+ (` ((new . ((t . nil)
+ (p . (, wl-summary-unread-cached-mark))
+ (p . (, (regexp-quote wl-summary-important-mark)))))
+ (unread . ((t . nil)
+ (p . (, wl-summary-unread-cached-mark))
+ (p . (, (regexp-quote wl-summary-important-mark))))))))
+
(defsubst wl-summary-next-message (num direction hereto)
(let ((cur-spec (cdr (assq wl-summary-move-order
- wl-summary-move-spec-alist)))
+ (if (elmo-folder-plugged-p
+ wl-summary-buffer-elmo-folder)
+ wl-summary-move-spec-plugged-alist
+ wl-summary-move-spec-unplugged-alist))))
(nums (memq num (if (eq direction 'up)
(reverse wl-summary-buffer-number-list)
wl-summary-buffer-number-list)))
marked-list nums2)
(unless hereto (setq nums (cdr nums)))
(setq nums2 nums)
- (catch 'done
- (while cur-spec
- (setq nums nums2)
- (cond ((eq (car (car cur-spec)) 'p)
- (if (setq marked-list (elmo-folder-list-messages-mark-match
- wl-summary-buffer-elmo-folder
- (cdr (car cur-spec))))
- (while nums
- (if (memq (car nums) marked-list)
- (throw 'done (car nums)))
- (setq nums (cdr nums)))))
- ((eq (car (car cur-spec)) 't)
- (while nums
- (if (and wl-summary-buffer-target-mark-list
- (memq (car nums)
- wl-summary-buffer-target-mark-list))
- (throw 'done (car nums)))
- (setq nums (cdr nums)))))
- (setq cur-spec (cdr cur-spec))))))
+ (if cur-spec
+ (catch 'done
+ (while cur-spec
+ (setq nums nums2)
+ (cond ((eq (car (car cur-spec)) 'p)
+ (if (setq marked-list (elmo-folder-list-messages-mark-match
+ wl-summary-buffer-elmo-folder
+ (cdr (car cur-spec))))
+ (while nums
+ (if (memq (car nums) marked-list)
+ (throw 'done (car nums)))
+ (setq nums (cdr nums)))))
+ ((eq (car (car cur-spec)) 't)
+ (if wl-summary-buffer-target-mark-list
+ (while nums
+ (if (memq (car nums)
+ wl-summary-buffer-target-mark-list)
+ (throw 'done (car nums)))
+ (setq nums (cdr nums))))))
+ (setq cur-spec (cdr cur-spec))))
+ (car nums))))
(defsubst wl-summary-cursor-move (direction hereto)
(when (and (eq direction 'up)
(wl-summary-jump-to-msg-internal
(wl-summary-buffer-folder-name) original 'no-sync))
(cond ((eq wl-summary-search-via-nntp 'confirm)
+ (require 'elmo-nntp)
(message "Search message in nntp server \"%s\" <y/n/s(elect)>?"
elmo-nntp-default-server)
(setq schar (read-char))
(defcustom wl-pop-before-smtp-user nil
"*POP3 user name to send mail using POP-before-SMTP.
-If nil, `elmo-default-pop3-user' is used.
+If nil, `elmo-pop3-default-user' is used.
To use POP-before-SMTP,
(setq wl-draft-send-mail-function 'wl-draft-send-mail-with-pop-before-smtp)"
:type '(choice (const :tag "none" nil)
(defcustom wl-pop-before-smtp-server nil
"*POP3 server for POP-before-SMTP.
-If nil, `elmo-default-pop3-server' is used."
+If nil, `elmo-pop3-default-server' is used."
:type '(choice (const :tag "none" nil)
string)
:group 'wl)
(defcustom wl-pop-before-smtp-port nil
"*POP3 port for POP-before-SMTP.
-If nil, `elmo-default-pop3-port' is used."
+If nil, `elmo-pop3-default-port' is used."
:type '(choice (const :tag "none" nil)
integer string)
:group 'wl)
(defcustom wl-pop-before-smtp-stream-type nil
"*Stream type for POP-before-SMTP.
-If nil, `elmo-default-pop3-stream-type' is used."
+If nil, `elmo-pop3-default-stream-type' is used."
:type 'boolean
:group 'wl)
(defcustom wl-pop-before-smtp-authenticate-type nil
"*Default Authentication type for POP-before-SMTP.
-If nil, `elmo-default-pop3-authenticate-type' is used."
+If nil, `elmo-pop3-default-authenticate-type' is used."
:type '(choice (const :tag "none" nil)
(const :tag "APOP" "apop")
(const :tag "POP3" "user"))
(defcustom wl-nntp-posting-server nil
"*NNTP server name to post news.
-If nil, `elmo-default-nntp-server' is used."
+If nil, `elmo-nntp-default-server' is used."
:type '(choice (const :tag "none" nil)
string)
:group 'wl)
(defcustom wl-nntp-posting-user nil
"*NNTP user name to post news for authinfo.
-If nil, `elmo-default-nntp-user' is used.
+If nil, `elmo-nntp-default-user' is used.
If nil, don't authenticate."
:type '(choice (const :tag "none" nil)
string)
:group 'wl)
(defcustom wl-nntp-posting-port nil
"*NNTP port to post news.
-If nil, `elmo-default-nntp-port' is used."
+If nil, `elmo-nntp-default-port' is used."
:type '(choice (const :tag "none" nil)
integer string)
:group 'wl)
(defcustom wl-nntp-posting-stream-type nil
"*Stream type for posting Netnews.
-If nil, `elmo-default-nntp-stream-type' is used."
+If nil, `elmo-nntp-default-stream-type' is used."
:type 'boolean
:group 'wl)
projects / elisp / wanderlust.git / commitdiff