(a) XEmacs 21.1 or later
- APEL 10.3, FLIM 1.14.3, SEMI 1.14.3
+ APEL 10.4, FLIM 1.14.4, SEMI 1.14.4
Installation as a XEmacs package, If possible.
(b) Emacs 20.4 or later
- APEL 10.3, FLIM 1.14.3, SEMI 1.14.3
+ APEL 10.4, FLIM 1.14.4, SEMI 1.14.4
(c) Emacs 20.1 to 20.3
- APEL 10.3, CLIME 1.14.3, SEMI 1.14.3
+ APEL 10.4, CLIME 1.14.5, SEMI 1.14.4
Use CLIME instead of FLIM. FLIM does not support Emacs 20.3 or
earlier.
(d) Emacs 19.34 (Mule 2.3)
- APEL 10.3, CLIME 1.14.3, SEMI 1.14.3
+ APEL 10.4, CLIME 1.14.5, SEMI 1.14.4
Mule based on Emacs 19.34 can also run SEMI. See the following web
page to get more information (in Japanese).
latest versions should work. For example, the following combinations
are confirmed to work:
- APEL 10.3, SLIM 1.14.7, SEMI 1.14.3
- APEL 10.3, CLIME 1.14.3, EMIKO 1.14.1
+ APEL 10.4, SLIM 1.14.9, SEMI 1.14.4
+ APEL 10.4, CLIME 1.14.5, EMIKO 1.14.1
You have to re-install Wanderlust if you upgraded APEL, FLIM, or SEMI.
(a) XEmacs 21.1 \e$B0J9_\e(B
- APEL 10.3, FLIM 1.14.3, SEMI 1.14.3
+ APEL 10.4, FLIM 1.14.4, SEMI 1.14.4
\e$B2DG=$J$i$P\e(B XEmacs \e$B$N%Q%C%1!<%8$H$7$F%$%s%9%H!<%k$9$k$3$H$r$*4+$a$7$^$9!#\e(B
(b) Emacs 20.4 \e$B0J9_\e(B
- APEL 10.3, FLIM 1.14.3, SEMI 1.14.3
+ APEL 10.4, FLIM 1.14.4, SEMI 1.14.4
(c) Emacs 20.1\e$B!A\e(B20.3
- APEL 10.3, CLIME 1.14.3, SEMI 1.14.3
+ APEL 10.3, CLIME 1.14.5, SEMI 1.14.4
FLIM \e$B$,F0$-$^$;$s$N$G!"Be$o$j$K\e(B CLIME \e$B$r%$%s%9%H!<%k$7$F$/$@$5$$!#\e(B
(d) Emacs 19.34 (Mule 2.3)
- APEL 10.3, CLIME 1.14.3, SEMI 1.14.3
+ APEL 10.3, CLIME 1.14.5, SEMI 1.14.4
Emacs 19.34 \e$B%Y!<%9$N\e(B Mule \e$B$G$O\e(B SEMI \e$B$rF0:n$5$;$k$3$H$,2DG=$G$9!#2<5-\e(B
\e$B$N%Z!<%8$,;29M$K$J$j$^$9!#\e(B
\e$BNc$($P!"0J2<$NAH9g$;$NF0:n$,3NG'$5$l$F$$$^$9!#\e(B
- APEL 10.3, SLIM 1.14.7, SEMI 1.14.3
- APEL 10.3, CLIME 1.14.3, EMIKO 1.14.1
+ APEL 10.4, SLIM 1.14.9, SEMI 1.14.4
+ APEL 10.4, CLIME 1.14.5, EMIKO 1.14.1
APEL, FLIM, SEMI \e$B$N%P!<%8%g%s%"%C%W$r9T$C$?>l9g$O!"\e(BWanderlust \e$B$r%$%s%9\e(B
\e$B%H!<%k$7D>$7$F$/$@$5$$!#\e(B
** You can send encapsulated blind carbon copies. Its default field name is
"Ecc:".
+** C-c C-y (Draft) can cite region of the message.
+ It affects if transient-mark-mode (Emacs) or zmacs-regions (XEmacs) is
+ Non-nil and the region is active.
+
+** You can delete a part from multipart message.
+ It is binded as "D" in message buffer.
+
** You can easily configure server settings to post news article.
Set wl-nntp-posting-config-alist appropriately. See info for an example.
** \e$B%+%W%;%k2=\e(B Blind Carbon Copy \e$B$rAw$l$k$h$&$K$J$j$^$7$?!#\e(B
\e$B%G%U%)%k%H$N%U%#!<%k%IL>$O\e(B "Ecc:" \e$B$G$9!#\e(B
+** \e$B%I%i%U%H$N\e(B C-c C-y \e$B$G%j!<%8%g%s$r0zMQ$G$-$k$h$&$K$J$j$^$7$?!#\e(B
+ transient-mark-mode (Emacs) \e$B$b$7$/$O\e(B zmacs-regions (XEmacs)
+ \e$B$,\e(B Non-nil \e$B$G!"%j!<%8%g%s$,M-8z$N$H$-$K:nMQ$7$^$9!#\e(B
+
+** \e$B%^%k%A%Q!<%H$N%a%C%;!<%8$+$i%Q!<%H$r:o=|$G$-$k$h$&$K$J$j$^$7$?!#\e(B
+ \e$B%a%C%;!<%8%P%C%U%!$G\e(B "D" \e$B$K%P%$%s%I$5$l$F$$$^$9!#\e(B
+
** \e$B%K%e!<%95-;v$rEj9F$9$k%5!<%P$r4JC1$K@_Dj$G$-$k$h$&$K$J$j$^$7$?!#\e(B
info \e$B$NNc$K=,$C$F\e(B wl-nntp-posting-config-alist \e$B$r@_Dj$7$F2<$5$$!#\e(B
** organize optional setting for pipe folders to download messages at once
when one checks new messages
** support for rfc2192, rfc2193, rfc2221 (managing imap referral)
+** improve folder name completion for complex ones (multi,filter,pipe)
** putting codes in order
** \e$B%Q%$%W%U%)%k%@$K!"?75,%a!<%k%A%'%C%/;~$K%@%&%s%m!<%I$^$G$d$C$F$7$^$&\e(B
\e$B%*%W%7%g%s$r@_$1$k\e(B
** rfc2192, rfc2193, rfc2221 (imap referral \e$B$N=hM}\e(B) \e$B$X$NBP1~\e(B
+** \e$B%U%)%k%@L>$NJd40$r$&$^$/$d$k\e(B(\e$B%^%k%A!"%U%#%k%?!"%Q%$%W%U%)%k%@\e(B)
** \e$B%3!<%I$N@0M}\e(B
\e$B=i4|@_Dj$O\e(B @code{nil}\e$B!#\e(B
\e$B%a!<%kAw?.;~$N\e(B SMTP \e$B%5!<%PL>$G$9!#\e(B
+@item wl-smtp-posting-port
+@vindex wl-smtp-posting-port
+\e$B=i4|@_Dj$O\e(B @code{nil}\e$B!#\e(B
+\e$B%a!<%kAw?.;~$N\e(B SMTP \e$B%]!<%HHV9f$G$9!#\e(B
+@code{nil} \e$B$J$i%G%U%)%k%H$N\e(B SMTP \e$B%]!<%HHV9f\e(B(25)\e$B$r;H$$$^$9!#\e(B
+
@item wl-smtp-posting-user
@vindex wl-smtp-posting-user
\e$B=i4|@_Dj$O\e(B @code{nil}\e$B!#\e(B
of Emacsen.
It is effective only when your Emacs can define @code{mail-user-agent}.
-@xref{Mail Methods, , ,emacs-ja, The Emacs Editor}.
+@xref{Mail Methods, , ,emacs, The Emacs Editor}.
@lisp
@group
The initial setting is @code{nil}.
This is the SMTP server name for mail transmission.
+@item wl-smtp-posting-port
+@vindex wl-smtp-posting-port
+The initial setting is @code{nil}.
+This is the SMTP port number for mail transmission.
+If @code{nil}, default SMTP port number (25) is used.
+
@item wl-smtp-posting-user
@vindex wl-smtp-posting-user
The initial setting is @code{nil}.
+2002-10-24 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * wl-draft.el (wl-draft-highlight-and-recenter): Restore
+ buffer-modified status (Thanks to
+ Tomotaka SUWA <cooper@saitama.fujimic.fujisankei-g.co.jp>).
+
+2002-10-22 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * wl-util.el (wl-region-exists-p): New function.
+
+ * wl-mime.el (wl-draft-yank-current-message-entity): Use it;
+ Remove defvars for byte-compile warnings.
+
+2002-10-22 Hiroya Murata <lapis-lazuli@pop06.odn.ne.jp>
+
+ * wl-mime.el (toplevel): Fixed last change; use defvar instead of
+ defvar-maybe. Removed unused bind.
+
+2002-10-21 Yoichi NAKAYAMA <yoichi@eken.phys.nagoya-u.ac.jp>
+
+ * wl-draft.el (wl-draft-forward): If wl-draft-use-frame, select
+ summary buffer window before creating new frame.
+ (wl-draft-reply): Ditto.
+
+2002-10-21 Hiroya Murata <lapis-lazuli@pop06.odn.ne.jp>
+
+ * wl-mime.el (toplevel): Avoid byte-compile warnings.
+
+2002-10-21 Yoichi NAKAYAMA <yoichi@eken.phys.nagoya-u.ac.jp>
+
+ * wl-mime.el (wl-draft-yank-current-message-entity): Fix logic.
+
+2002-10-18 Hiroya Murata <lapis-lazuli@pop06.odn.ne.jp>
+
+ * wl-mime.el (wl-message-delete-current-part): Use `delete-region'
+ instead of `kill-region'.
+
2002-10-18 Yuuichi Teranishi <teranisi@gohome.org>
* wl-highlight.el (wl-highlight-summary-answered-face): New face.
references (wl-delete-duplicates references)
references (when references
(mapconcat 'identity references "\n\t"))))
+ (and wl-draft-use-frame
+ (get-buffer-window summary-buf)
+ (select-window (get-buffer-window summary-buf)))
(wl-draft (list (cons 'To "")
(cons 'Subject
(concat wl-forward-subject-prefix original-subject))
references (wl-delete-duplicates references)
references (if references
(mapconcat 'identity references "\n\t")))
+ (and wl-draft-use-frame
+ (get-buffer-window summary-buf)
+ (select-window (get-buffer-window summary-buf)))
(wl-draft (list (cons 'To to)
(cons 'Cc cc)
(cons 'Newsgroups newsgroups)
(defun wl-default-draft-cite ()
(let ((mail-yank-ignored-headers "[^:]+:")
(mail-yank-prefix "> ")
- (summary-buf wl-current-summary-buffer)
- (message-buf (get-buffer (wl-current-message-buffer)))
- from date cite-title num entity)
- (if (and summary-buf
- (buffer-live-p summary-buf)
- message-buf
- (buffer-live-p message-buf))
- (progn
- (with-current-buffer summary-buf
- (let ((elmo-mime-charset wl-summary-buffer-mime-charset))
- (setq num (save-excursion
- (set-buffer message-buf)
- wl-message-buffer-cur-number))
- (setq entity (elmo-msgdb-overview-get-entity
- num (wl-summary-buffer-msgdb)))
- (setq date (elmo-msgdb-overview-entity-get-date entity))
- (setq from (elmo-msgdb-overview-entity-get-from entity))))
- (setq cite-title (format "At %s,\n%s wrote:"
- (or date "some time ago")
- (if wl-default-draft-cite-decorate-author
- (funcall wl-summary-from-function
- (or from "you"))
- (or from "you"))))))
- (and cite-title
- (insert cite-title "\n"))
+ date from cite-title)
+ (save-restriction
+ (if (< (mark t) (point))
+ (exchange-point-and-mark))
+ (narrow-to-region (point)(point-max))
+ (setq date (std11-field-body "date")
+ from (std11-field-body "from")))
+ (when (or date from)
+ (insert (format "At %s,\n%s wrote:\n"
+ (or date "some time ago")
+ (if wl-default-draft-cite-decorate-author
+ (funcall wl-summary-from-function
+ (or from "you"))
+ (or from "you")))))
(mail-indent-citation)))
(defvar wl-draft-buffer nil "Draft buffer to yank content")
(if arg
(let (buf mail-reply-buffer)
(elmo-set-work-buf
+ (insert "\n")
(yank)
(setq buf (current-buffer)))
(setq mail-reply-buffer buf)
(defun wl-draft-highlight-and-recenter (&optional n)
(interactive "P")
- (if wl-highlight-body-too
- (let ((beg (point-min))
- (end (point-max)))
- (put-text-property beg end 'face nil)
- (wl-highlight-message beg end t)))
+ (when wl-highlight-body-too
+ (let ((modified (buffer-modified-p)))
+ (unwind-protect
+ (progn
+ (put-text-property (point-min) (point-max) 'face nil)
+ (wl-highlight-message (point-min) (point-max) t))
+ (set-buffer-modified-p modified))))
(recenter n))
;;;; user-agent support by Sen Nagata
(require 'mime-play)
(require 'elmo)
-(eval-when-compile
- (defalias-maybe 'Meadow-version 'ignore))
-
-(defvar xemacs-betaname)
-(defvar xemacs-codename)
-(defvar enable-multibyte-characters)
-(defvar mule-version)
-
;;; Draft
(defalias 'wl-draft-editor-mode 'mime-edit-mode)
(set-buffer (wl-current-message-buffer))
(save-restriction
(widen)
- (if (or (and wl-on-xemacs
- zmacs-regions zmacs-region-active-p)
- (and transient-mark-mode mark-active))
- (wl-mime-preview-follow-current-region)
- (mime-preview-follow-current-entity)))))))
+ (if (wl-region-exists-p)
+ (wl-mime-preview-follow-current-region)
+ (mime-preview-follow-current-entity)))))))
;; modified mime-preview-follow-current-entity from mime-view.el
(defun wl-mime-preview-follow-current-region ()
(wl-mime-node-id-to-string node-id))))
(with-temp-buffer
(insert-buffer orig-buf)
- (kill-region header-start body-end)
+ (delete-region header-start body-end)
(goto-char header-start)
(insert "Content-Type: text/plain; charset=US-ASCII\n\n")
(insert "** This part has been removed by Wanderlust **\n\n")
(defalias 'wl-expand-newtext 'elmo-expand-newtext)
+(defun wl-region-exists-p ()
+ "Return non-nil if a region exists on current buffer."
+ (static-if (featurep 'xemacs)
+ (and zmacs-regions zmacs-region-active-p)
+ (and transient-mark-mode mark-active)))
+
(defvar wl-line-string)
(defun wl-line-parse-format (format spec-alist)
"Make a formatter from FORMAT and SPEC-ALIST."
projects / elisp / wanderlust.git / commitdiff