@item .
@kindex . (Summary)
@findex wl-summary-redisplay
-\e$B8=:_%+!<%=%k$,$"$k9T$N%a%C%;!<%8$r:FI=<($7$^$9!#\e(B
-prefix argument \e$B$D$-$J$i$P%-%c%C%7%e$,B8:_$7$F$bL5;k$7$F:FFI$_9~$_$7D>$7$^$9!#\e(B
-(@code{wl-summary-redisplay})
+\e$B8=:_%+!<%=%k$,$"$k9T$N%a%C%;!<%8$r%G%U%)%k%H$NI=<(7A<0$G:FI=<($7$^$9!#\e(B
+prefix argument \e$B$D$-$J$i$P%-%c%C%7%e$,B8:_$7$F$bL5;k$7$F:FFI$_9~$_$7D>$7\e(B
+\e$B$^$9!#\e(B@kbd{C-u C-u .} \e$B$N$h$&$K\e(B 2\e$B2s$N\e(B @kbd{C-u} \e$B$rIU$1$F<B9T$7$?>l9g!"8=:_\e(B
+\e$B$NI=<(7A<0$r0];}$7$F:FFI$_9~$_$7D>$7$^$9!#\e(B(@code{wl-summary-redisplay})
@item <
@kindex < (Summary)
@item H
@kindex H (Summary)
-@findex wl-summary-redisplay-all-header
-\e$B8=:_%+!<%=%k$,$"$k9T$N%a%C%;!<%8$r!"$9$Y$F$N%X%C%@>pJs$H$H$b$KI=<($7$^$9!#\e(B
-(@code{wl-summary-redisplay-all-header})
+@findex wl-summary-toggle-all-header
+\e$B8=:_%+!<%=%k$,$"$k9T$N%a%C%;!<%8$r!"A4$F%X%C%@>pJs$rI=<($9$k$+$I$&$+$r@Z\e(B
+\e$B$j49$($F:FI=<($7$^$9!#\e(Bprefix argument \e$B$D$-$J$i$P%-%c%C%7%e$,B8:_$7$F$b\e(B
+\e$BL5;k$7$F:FFI$_9~$_$7D>$7$^$9!#\e(B@kbd{C-u C-u H} \e$B$N$h$&$K\e(B 2\e$B2s$N\e(B @kbd{C-u} \e$B$r\e(B
+\e$BIU$1$F<B9T$7$?>l9g!"8=:_$N%X%C%@$NI=<(7A<0$r%5%^%j$N%G%U%)%k%HCM$H$7$F\e(B
+\e$B@_Dj$7$^$9!#\e(B
+(@code{wl-summary-toggle-all-header})
@item M
@kindex M (Summary)
-@findex wl-summary-redisplay-no-mime
-\e$B8=:_%+!<%=%k$,$"$k9T$N%a%C%;!<%8$r!"\e(BMIME \e$B2r@O$9$k$3$H$J$/I=<($7$^$9!#\e(B
-(@code{wl-summary-redisplay-no-mime})
+@findex wl-summary-toggle-mime
+\e$B8=:_%+!<%=%k$,$"$k9T$N%a%C%;!<%8$r!"\e(BMIME \e$B2r@O$N;XDj$r@Z$j49$($F:FI=<($7$^\e(B
+\e$B$9!#@Z$j49$($O!"\e(B@code{wl-summary-display-mime-mode-list} \e$B$K;XDj$5$l$?=g$K\e(B
+\e$B9T$o$l$^$9!#$^$?!"?tCM$N\e(B prefix argument \e$B$D$-$G<B9T$7$?>l9g!"0J2<$N$h$&$K\e(B
+\e$BD>@\@Z$j49$($k$3$H$,=PMh$^$9!#\e(B
+
+@example
+@group
+1: MIME \e$B2r@O$rM-8z$K$7$^$9\e(B
+2: \e$B%X%C%@$N$_\e(B MIME \e$B2r@O$rM-8z$K$7$^$9\e(B
+3: MIME \e$B2r@O$rL58z$K$7$^$9\e(B
+@end group
+@end example
+
+@kbd{C-u C-u M} \e$B$N$h$&$K\e(B 2\e$B2s$N\e(B @kbd{C-u} \e$B$rIU$1$F<B9T$7$?>l9g!"8=:_$N;XDj\e(B
+\e$B$r%5%^%j$N%G%U%)%k%HCM$H$7$F@_Dj$7$^$9!#\e(B(@code{wl-summary-toggle-mime})
@item C-c C-f
@kindex C-c C-f (Summary)
rescan \e$B8=:_$N\e(B msgdb \e$B$K4p$E$$$F:FI=<($r9T$$$^$9!#\e(B
rescan-noscore \e$B8=:_$N\e(B msgdb \e$B$K4p$E$$$F:FI=<($r9T$$$^$9!#\e(B
\e$B%9%3%"$K$h$j>C$($?%a%C%;!<%8$bI=<($7$^$9!#\e(B
+rescan-thread \e$B8=:_$N\e(B msgdb \e$B$K4p$E$$$F:FI=<($r9T$$$^$9!#\e(B
+ \e$B%9%l%C%I$N>pJs$b:F9=C[$7$^$9!#\e(B
cache-status \e$B%-%c%C%7%e$N>uBV$r%^!<%/$KH?1G$7$^$9!#\e(B
mark \e$B%^!<%/$N>uBV$r:G?7$K$7$^$9!#\e(B
no-sync \e$B2?$b$7$^$;$s!#\e(B
(private "blue" "X")))
@end group
@end lisp
+
+@item wl-summary-display-mime-mode-list
+@vindex wl-summary-display-mime-mode-list
+\e$B=i4|@_Dj$O0J2<$N%j%9%H!#\e(B
+
+@lisp
+@group
+(mime as-is)
+@end group
+@end lisp
+
+@noindent
+@code{wl-summary-toggle-mime} \e$B$O$3$N%j%9%H$N=g$K\e(B MIME \e$B2r@O$N;XDj$r@Z$j49\e(B
+\e$B$($^$9!#\e(BMIME \e$B2r@O$NJ}<0$K$O0J2<$N$b$N$,;XDj$G$-$^$9!#\e(B
+
+@example
+@code{mime} : MIME \e$B2r@O$r9T$$$^$9\e(B
+@code{header-only} : \e$B%X%C%@$N$_\e(B MIME \e$B2r@O$r9T$$$^$9\e(B
+@code{as-is} : MIME \e$B2r@O$r9T$$$^$;$s\e(B
+@end example
@end table
@item .
@kindex . (Summary)
@findex wl-summary-redisplay
-Redisplay a message at the current cursor point.
-If this command is called with prefix argument,
-Redisplay message regardless of the message cache (message is re-loaded
-from source).
-(@code{wl-summary-redisplay})
+Redisplay a message at the current cursor point with default display
+type. If this command is called with prefix argument, reload and redisplay
+message regardless of the message cache.
+If this command is called with twice multiples @kbd{C-u} as @kbd{C-u C-u .},
+reload and redisplay message with current display type regardless of the
+message cache. (@code{wl-summary-redisplay})
@item <
@kindex < (Summary)
@item H
@kindex H (Summary)
-@findex wl-summary-redisplay-all-header
-Redisplay the message at current cursor point with all header fields.
-(@code{wl-summary-redisplay-all-header})
+@findex wl-summary-toggle-all-header
+Toggle display type between all and partial header fields and redisplay
+the message at current cursor point. If this command is called with
+prefix argument, reload and redisplay message regardless of the message cache.
+If this command is called with twice multiples @kbd{C-u} as @kbd{C-u C-u H},
+set default display type of summary by current display type of header fields.
+(@code{wl-summary-toggle-all-header})
@item M
@kindex M (Summary)
-@findex wl-summary-redisplay-no-mime
-Redisplay the message at current cursor point without MIME analysis.
-(@code{wl-summary-redisplay-no-mime})
+@findex wl-summary-toggle-mime
+Toggle display type for MIME analysis and redisplay the message at
+current cursor point. A change is performed in the order set as
+@code{wl-summary-display-mime-mode-list}. If this command is called
+with numeric prefix argument, it switch directly as follows.
+
+@example
+@group
+1: Enable MIME analysis.
+2: Enable MIME analysis only for header fields.
+3: Disable MIME analysis.
+@end group
+@end example
+
+If this command is called with twice multiples @kbd{C-u} as @kbd{C-u C-u
+M}, set default display type of summary by current display type of MIME
+analysis. (@code{wl-summary-toggle-mime})
+
+@item C-c C-f
+@kindex C-c C-f (Summary)
+@findex wl-summary-toggle-header-narrowing
+Toggle header body narrowing of the message at current cursor point.
+(@code{wl-summary-toggle-header-narrowing})
@item B
@kindex B (Summary)
rescan Redisplay summary by rescanning present msgdb.
rescan-noscore Redisplay summary by rescanning present msgdb.
Display messages killed by score, too.
+rescan-thread Redisplay summary by rescanning present msgdb.
+ Reconstruct thread, too.
cache-status Sync the all marks with the real status of cache.
mark Update marks.
no-sync Do nothing.
@end group
@end lisp
-Specify the color of message in summary buffer with flag. If multiple
-global flags are on one message, the former flag in this list is
-preferred.
+Specify the color and the mark of message in summary buffer with flag.
+If the mark are omitted, the mark specified in the variable
+@code{wl-summary-flag-mark} is assumed. If multiple global flags are on
+one message, the former flag in this list is preferred.
+
+Example:
+
+@lisp
+@group
+(setq wl-summary-flag-alist
+ '((important "purple")
+ (todo "red")
+ (business "green" "B")
+ (private "blue" "X")))
+@end group
+@end lisp
+
+@item wl-summary-display-mime-mode-list
+@vindex wl-summary-display-mime-mode-list
+The initial setting is the list shown below:
+
+@lisp
+@group
+(mime as-is)
+@end group
+@end lisp
+
+@noindent
+The function @code{wl-summary-toggle-mime} switch specification of MIME
+analysis in the order of this list. You can specify one of the follows.
+
+@example
+@code{mime} : Header and body are decoded.
+@code{header-only} : Only header is decoded.
+@code{as-is} : Header and body are not decoded.
+@end example
@end table
+2004-12-15 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * wl-e21.el (wl-draft-mode-setup): Avoid global-font-lock-mode
+ (Thanks to Yoichi NAKAYAMA).
+
+2004-12-15 Yoichi NAKAYAMA <yoichi@geiin.org>
+
+ * wl-util.el (wl-save-drafts): Restore echo area.
+
2004-12-12 Yuuichi Teranishi <teranisi@gohome.org>
* Version number is increased to 2.12.0.
See info under Wanderlust for full documentation.
Special commands:
-\\{wl-draft-mode-map}"))
+\\{wl-draft-mode-map}"
+ (setq font-lock-defaults nil)))
(defun wl-draft-key-setup ()
(define-key wl-draft-mode-map "\C-c\C-y" 'wl-draft-yank-original)
result))
(defun wl-save-drafts ()
- (let ((buffers (wl-collect-draft)))
+ (let ((msg (current-message))
+ (buffers (wl-collect-draft)))
(save-excursion
(while buffers
(set-buffer (car buffers))
(if (buffer-modified-p) (wl-draft-save))
- (setq buffers (cdr buffers))))))
+ (setq buffers (cdr buffers))))
+ (message msg)))
(static-if (fboundp 'read-directory-name)
(defun wl-read-directory-name (prompt dir)
"Wanderlust" nil
(eval-when-compile
(product-version (product-find 'elmo-version))) ; equals to ELMO version.
- "Your Wildest Dreams-pre"))
+ "Your Wildest Dreams-pre2"))
(defconst wl-version-status nil
"Wanderlust verstion status. For override default rule.
projects / elisp / wanderlust.git / commitdiff