X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2FChangeLog;h=d294883e723bd243829c3b1631fa53afb510eb49;hb=97b22f9cff6c6cc87a3ba1ee24e892bceae6f5a1;hp=b6ff05bb4df240c1d91975d55fa45c504c1a7a24;hpb=5799c10881cb749aa5e1ac20075db4b04fc635b3;p=elisp%2Fwanderlust.git diff --git a/wl/ChangeLog b/wl/ChangeLog index b6ff05b..d294883 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,84 +1,224 @@ -2001-02-28 Yuuichi Teranishi - - * wl-summary.el (wl-summary-buffer-message-redisplay-func): Removed. - - * wl-vars.el (wl-cache-prefetch-get-next-func): Ditto. - - * wl-draft.el (wl-caesar-region-func): Ditto. - - * wl-summary.el (wl-summary-exec-subr): Fixed `copy'; - Keep unread status in elmo-folder-move-messages. - (wl-summary-sync-update): Set `wl-summary-buffer-msgdb'. - -2001-02-27 TAKAHASHI Kaoru - - * wl-summary.el (wl-summary-buffer-exit-function): Renamed from - `wl-summary-buffer-exit-func' - (wl-summary-buffer-message-redisplay-function): Renamed from - `wl-summary-buffer-message-redisplay-func' - (wl-summary-buffer-next-folder-function): Renamed from - `wl-summary-buffer-next-folder-func'. - (wl-summary-buffer-prev-folder-function): Renamed from - `wl-summary-buffer-prev-folder-func'. - (wl-summary-get-petname-function): Renamed from - `wl-summary-get-petname-func'. - - * wl-score.el (wl-score-edit-exit-function): Renamed from - `wl-score-edit-exit-func'. - - * wl-message.el (wl-message-buffer-prefetch-get-next-function): - Renamed from `wl-message-buffer-prefetch-get-next-function'. - - * wl-util.el (wl-load-profile-function): Renamed from - `wl-load-profile-func'. - - * wl-folder.el (wl-folder-completion-function): Renamed from - `wl-folder-completion-func'. - (wl-folder-init-function): Renamed from `wl-folder-init-func'. - - * wl-vars.el (wl-expire-archive-get-folder-function): Renamed from - `wl-expire-archive-get-folder-func'. - (wl-draft-send-function): Renamed from `wl-draft-send-func'. - (wl-draft-send-mail-function): Renamed from - `wl-draft-send-mail-func'. - (wl-draft-send-news-function): Renamed from - `wl-draft-send-news-func'. - (wl-fldmgr-sort-function): Renamed from `wl-fldmgr-sort-func'. - (wl-generate-mailer-string-function): Renamed from - `wl-generate-mailer-string-func'. - (wl-highlight-signature-search-function): Renamed from - `wl-highlight-signature-search-func'. - (wl-highlight-x-face-function): Renamed from - `wl-highlight-x-face-func' - (wl-print-buffer-function): Renamed from `wl-print-buffer-func'. - (wl-ps-print-buffer-function): Renamed from - `wl-ps-print-buffer-func' - (wl-summary-from-function): Renamed from `wl-summary-from-func'. - (wl-summary-subject-function): Renamed from `wl-summary-subject-func'. - (wl-summary-subject-filter-function): Renamed from - `wl-summary-subject-filter-func'. - - * wl-draft.el (wl-draft-queue-flush-send-function): Renamed from - `wl-draft-queue-flush-send-func' - (wl-draft-cite-function): Renamed from - `wl-draft-cite-func' - - * wl-address.el (wl-address-init-function): Renamed from - `wl-address-init-func'. - -2001-02-27 Yuuichi Teranishi - - * wl-draft.el (wl-draft-queue-flush): Don't call - `elmo-dop-unlock-message'. - * wl-draft.el (wl-draft-queue-append): Don't call - `elmo-dop-lock-message'. - - * wl-summary.el (wl-summary-buffer-msgdb): Revival (for compatibility). - (wl-summary-buffer-folder-name): Ditto. - (wl-summary-message-regexp): Added '-' (all other related portions - are changed). - (wl-summary-goto-folder-subr): Set wl-summary-buffer-msgdb and - wl-summary-buffer-folder-name. +2001-07-14 Yuuichi Teranishi + + * wl-draft.el (wl-message-mail-p): Test resent-to: field. + (Fix by Peter Møller Neergaard ) + +2001-07-05 Yuuichi Teranishi + + * wl-vars.el: Changed file coding system to ISO-2022-JP. + Removed redundant require of elmo-vars. + (wl-biff-state-indicator-on): Changed default value for + xemacs with non-mule environment. + +2001-07-04 Yuuichi Teranishi + + * 2.6.0 is released. + + * wl-vars.el: Changed file coding system to euc-japan. + Added -*-coding:-*- magic to the first line. + +2001-06-27 Yuuichi Teranishi + + * wl-vars.el (wl-summary-fix-timezone): Changed default value to nil; + Fixed docstring. + +2001-06-25 Yuuichi Teranishi + + * wl-folder.el (wl-folder-sync-entity): Bind wl-summary-use-frame + as nil. + (wl-folder-mark-as-read-all-entity): Ditto. + (wl-folder-prefetch-entity): Ditto. + (wl-folder-drop-unsync-entity): Ditto. + + * wl-summary.el (wl-summary-collect-unread): Eliminated. + (wl-summary-mark-as-read-all): Call elmo-list-folder-unread instead + of wl-summary-collect-unread. + +2001-06-21 Yuuichi Teranishi + + * wl-vars.el (wl): Set custom-manual link as "wl-ja" + only if current language environment is japanese, + + * wl-folder.el (wl-folder-jump-to-current-entity): Call + wl-folder-select-buffer when wl-summary-use-frame is non-nil. + (wl-folder-goto-folder-subr): Ditto. + +2001-06-20 Yuuichi Teranishi + + * wl-summary.el (wl-summary-buffer-next-message-function): New + variable. + (wl-summary-next-message): Call wl-summary-buffer-next-message-function + if it is bound. + (wl-summary-cursor-move): If return value of + wl-summary-next-message is not number, don't jump. + +2001-06-18 Yuuichi Teranishi + + * wl-util.el (wl-biff-check-folder): Use own buffer for pop3 biff + process. + (wl-biff-check-folder-async): Enclose wl-biff-check-folder + with unwind-protect. + +2001-06-15 Yuuichi Teranishi + + * Version number is increased to 2.6.0. + + * wl-version.el (wl-version): Changed codename. + + * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): + Workaround for net folders. + (According to the patch from ABE Yasushi ) + +2001-06-06 Peter Møller Neergaard + + * wl-summary.el (wl-summary-resend-bounced-mail): Modified regexp + for postfix. + +2001-06-13 Yuuichi Teranishi + + * wl-draft.el (wl-draft-edit-string): Fetch From: field value and + Call wl-draft with `from' argument if its address is included in + `wl-user-mail-address-list'. + (wl-draft): Added `from' argument. + + * wl.el (wl-exit): Delete current frame if wl-folder-use-frame is + non-nil. + + * wl-summary.el (wl-summary-exit): Renamed wl-folder-use-frame to + wl-summary-use-frame. + + * wl-vars.el (wl-summary-use-frame): New user option. + (wl-folder-use-frame): Changed docstring. + + * wl-folder.el (wl-folder): Make new frame if wl-folder-use-frame is + non-nil. + (wl-folder-select-buffer): Renamed wl-folder-use-frame to + wl-summary-use-frame. + + * wl-vars.el (wl-folder-use-frame): New user option. + + * wl-summary.el (wl-summary-exit): Back to folder frame if + wl-folder-use-frame is non-nil. + (wl-summary-redisplay-internal): Ignore cache + if current folder is draft folder. + (wl-summary-redisplay-no-mime): Ditto. + (wl-summary-redisplay-all-header): Ditto. + + * wl-folder.el (wl-folder-select-buffer): Switch to other frame + if wl-folder-use-frame is non-nil. + +2001-06-03 TAKAHASHI Kaoru + + * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): + Fixed probrem when hostname/port/auth included folder name makes + misguess. + +2001-05-23 Kenichi OKADA + + * wl-draft.el (wl-draft): use `wl-summary-write-current-folder' + instead of `wl-summary-write-current-newsgroup'. + +2001-05-19 Masahiro MURATA + + * wl-summary.el (wl-summary-auto-select-msg-p): New function. + (wl-summary-goto-folder-subr): If `wl-auto-select-first' is + non-nil and selected message is important, do not display. + +2001-05-01 TAKAHASHI Kaoru + + * wl-summary.el (wl-summary-write-current-folder): Set cursor + position on Subject: field. + (Advised by Mito ) + +2001-04-12 Yoichi NAKAYAMA + + * wl-e21.el (wl-biff-init-icons): Don't use `call-interactively' to + call the command `wl-biff-check-folders' in `mode-line-mouse2-map'. + +2001-04-02 Yuuichi Teranishi + + * wl-vars.el (wl-biff-unnotify-hook): New variable. + + * wl-util.el (wl-biff-notify): Run `wl-biff-unnotify-hook' when + biff notification is removed. + +2001-03-20 TAKAHASHI Kaoru + + * wl-folder.el (wl-folder-write-current-folder): Support petname. + +2001-03-14 Yuuichi Teranishi + + * wl-message.el (wl-normal-message-redisplay): + Set `wl-message-cache-used'. + +2001-03-13 OKAZAKI Tetsurou + + * wl-summary.el (wl-summary-mode): Use `make-local-hook' instead + of `make-local-variable' for setting up `window-scroll-functions'. + +2001-03-12 OKAZAKI Tetsurou + + * wl-highlight.el (wl-highlight-summary): Use `save-match-data'. + +2001-03-12 Yuuichi Teranishi + + * wl-summary.el (wl-summary-move-spec-plugged-alist, + wl-summary-move-spec-unplugged-alist): Define without backquote. + +2000-03-11 Kenichi OKADA + + * wl-draft.el (wl-draft-do-fcc): Fix for `wl-draft-use-cache' + +2001-03-08 TAKAHASHI Kaoru + + * wl-score.el (wl-score-get-score-alist): Abolish `temp' key in + score file. Use `target' instead. + +2001-03-07 TAKAHASHI Kaoru + + * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): + Fixed probrem guess by top level folder. + + * wl-draft.el (wl-draft-random-alphabet): Removed. + (wl-draft-confirm): Don't use conditonal statement + in `format' argument; Use gettext style. + (wl-draft-insert-x-face-field): Refactoring; Use guard statement + for error case. + +2001-03-05 Katsumi Yamaoka + + * wl-demo.el (wl-demo): Reset `tab-width' and `tab-stop-list' to + the default value. + +2001-03-03 Masahiro MURATA + + * wl-summary.el (wl-summary-goto-folder-subr): Fixed problem that + last unread message is skipped. + +2001-03-01 Yuuichi Teranishi + + * wl-summary.el (wl-summary-next-message): + Return next message number when wl-summary-move-order is nil. + +2001-02-28 Akihiro MOTOKI + + * 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 + + * wl-e21.el (wl-draft-overload-menubar): "FCC" -> "Fcc". + * wl-mule.el (wl-draft-overload-menubar): Ditto. + +2001-02-28 OKAZAKI Tetsurou + + * 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-26 "A. SAGATA" @@ -90,6 +230,27 @@ * wl-summary.el (wl-summary-default-subject-filter): Fix for `Re>'. * wl-vars.el (wl-summary-search-parent-by-subject-regexp): Ditto. +2001-02-25 Masahiro MURATA + + * wl-folder.el (wl-folder-sync-entity): Fixed change value of + `wl-message-buf-name' and `wl-summary-buffer-name'. + (wl-folder-mark-as-read-all-entity) : Ditto. + (wl-folder-prefetch-entity): Ditto. + (wl-folder-drop-unsync-entity): Ditto. + +2001-02-25 OKAZAKI Tetsurou + + * 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 * wl-util.el (wl-regexp-opt): New function. @@ -121,7 +282,7 @@ * wl-thread.el (toplevel): require 'cl. (wl-thread-resume-entity): Call wl-thread-make-number-list. (wl-thread-make-number-list): New function. - (wl-thread-entity-make-number-list-from-children): Ditto. + (wl-thread-entity-make-number-list-from-children): Ditt. (wl-thread-entity-insert-as-top): Update wl-summary-buffer-number-list. (wl-thread-entity-insert-as-children): Likewise. (wl-thread-delete-message): Likewise. @@ -157,7 +318,7 @@ (wl-summary-sync-all-init): Ditto. (wl-summary-goto-folder-subr): Call `wl-summary-make-number-list' if summary is not thread view. - (wl-summary-sync-update): Ditto. + (wl-summary-sync-update3): Ditto. (wl-summary-rescan): Ditto. (wl-summary-make-number-list): New function. @@ -168,17 +329,18 @@ * wl-highlight.el (wl-highlight-summary-window): Call `set-buffer-modified-p'. - * wl.el (wl-init): Don't call `elmo-crosspost-message-alist-load'. - (wl): Call `elmo-init' and fix. - - * wl-draft.el, wl-folder.el, wl-summary.el, wl-util.el: - Use new variables. - - * wl-folder.el (wl-folder): Call `sit-for' before `wl-folder-init'. + * wl-vars.el (wl-summary-lazy-highlight): New variable. -2001-02-20 Yuuichi Teranishi + * wl-summary.el (wl-summary-mode): Set up window-scroll-functions + when `wl-summary-lazy-highlight' is non-nil. + (wl-summary-goto-folder-subr): Highlight only when + `wl-summary-lazy-highlight' is non-nil. - * wl-vars.el (wl-biff-notify-hook): Set default value as '(beep). + * wl-highlight.el (wl-highlight-summary): Fixed docstring; + Don't display progress and highlight temp-mark when + `wl-summary-lazy-highlight' is non-nil. + (wl-highlight-summary-window): New function. + (Based on the patch from Akihiro MOTOKI ) 2001-02-20 Katsumi Yamaoka @@ -208,64 +370,6 @@ (wl-demo-image-type-alist): Use `image-type-available-p' for checking whether the image type `xbm' is available. -2000-02-20 Yuuichi Teranishi - - * wl-summary.el (wl-summary-sync): Rename 'all-shown' to `all-visible'. - (wl-summary-input-range): Ditto. - -2001-02-20 Yuuichi Teranishi - - * wl-summary.el (wl-summary-edit-addresses): Use - `wl-summary-get-original-buffer' - (wl-summary-mark-as-unread): Don't call `wl-summary-set-crosspost'. - (wl-summary-jump-to-msg-by-message-id-via-nntp): - Use `elmo-nntp-parse-newsgroup' instead of `wl-parse-newsgroups'. - (wl-summary-get-newsgroups): Eliminated. - (wl-summary-set-crosspost): Ditto. - (wl-summary-is-crosspost-folder): Ditto. - (wl-crosspost-alist-load): Ditto. - (wl-crosspost-alist-save): Ditto. - - * wl-folder.el (wl-folder-create-newsgroups-hashtb): Call - `elmo-setup-subscribed-newsgroups' instead of - `elmo-nntp-make-groups-hashtb'. - (wl-folder-suspend): Call `elmo-crosspost-message-alist-save' - instead of `wl-crosspost-alist-save'. - - * wl-mime.el (wl-summary-burst): Use `elmo-folder-writable-p' instead - of `elmo-folder-message-appendable-p'. - (wl-mime-header-presentation-method): Eliminated. - - * wl-message.el (wl-message-prev-page): Don't pass -1 to `recenter'. - (Error occurs in emacs21). - - * wl-draft.el (wl-draft-queue-flush): Fix (fetch message to - the current buffer). - - * wl.el (wl-save-status): Call `elmo-crosspost-message-alist-save' - instead of `wl-crosspost-alist-save'. - (wl-init): `elmo-crosspost-message-alist-load' - instead of `wl-crosspost-alist-load' - - * wl-util.el (wl-parse): Eliminated (Renamed to `elmo-parse'). - (wl-parse-newsgroups): Likewise. - (wl-biff-notify): Run `wl-biff-notify-hook'. - -2001-02-21 Yuuichi Teranishi - - * wl-vars.el (wl-summary-lazy-highlight): New variable. - - * wl-summary.el (wl-summary-mode): Set up window-scroll-functions - when `wl-summary-lazy-highlight' is non-nil. - (wl-summary-goto-folder-subr): Highlight only when - `wl-summary-lazy-highlight' is non-nil. - - * wl-highlight.el (wl-highlight-summary): Fixed docstring; - Don't display progress and highlight temp-mark when - `wl-summary-lazy-highlight' is non-nil. - (wl-highlight-summary-window): New function. - (Based on the patch from Akihiro MOTOKI ) - 2000-02-20 Kenichi OKADA * wl-summary.el (wl-summary-sync): Change `all-visible' @@ -282,38 +386,6 @@ * wl-demo.el: Work also with BITMAP-MULE under Emacs 21. (wl-demo-image-type-alist): New macro. -2001-02-19 Katsumi Yamaoka - - * wl-e21.el (wl-biff-init-icons): Don't generate icons if the - display does not support graphics. - (wl-plugged-init-icons): Ditto. - (wl-folder-init-icons): Ditto. - - * wl-demo.el (wl-demo): Chech closely whether the display - supports graphics. - -2001-02-09 Yuuichi Teranishi - - * wl-summary.el (wl-summary-get-original-buffer): New function. - (wl-summary-set-crosspost): Use it. - (wl-summary-target-mark-uudecode): Ditto. - (wl-summary-reedit): Ditto. - (wl-summary-resend-bounced-mail): Ditto. - (wl-summary-update-crosspost): Eliminated (It may be incorporated - into `elmo-folder-append-msgdb' method of elmo-nntp-folder class). - - * wl-message.el (wl-message-buffer-display): Added argumnet `unread'. - (wl-message-display-internal): Ditto. - -2001-02-07 Yuuichi Teranishi - - * wl-draft.el (wl-draft-parse-msg-id-list-string): Fix. - -2001-02-06 Yuuichi Teranishi - - * wl-summary.el (wl-summary-save-view): Renamed from - `wl-summary-save-status'. - 2000-02-20 Kenichi OKADA * wl-summary.el (wl-summary-sync): Added `all-shown' @@ -326,6 +398,16 @@ * wl-summary.el (wl-summary-sync-update3): Bind 'nohide as t if sync-all. +2001-02-19 Katsumi Yamaoka + + * wl-e21.el (wl-biff-init-icons): Don't generate icons if the + display does not support graphics. + (wl-plugged-init-icons): Ditto. + (wl-folder-init-icons): Ditto. + + * wl-demo.el (wl-demo): Chech closely whether the display + supports graphics. + 2001-02-19 OKAZAKI Tetsurou * wl-highlight.el (wl-highlight-summary-line-string): Use @@ -352,94 +434,13 @@ 2001-02-14 Yuuichi Teranishi - * wl-expire.el (wl-expire-refile): Don't call - elmo-msgdb-add-msgs-to-seen-list; - Pass wl-expire-add-seen-list to elmo-folder-move-messages. - (wl-expire-refile-with-copy-reserve-msg): Ditto. + * wl-summary.el (wl-cache-prefetch-message): + Call `elmo-buffer-cache-message' with `unread' argument. -2001-01-19 Yuuichi Teranishi - - * wl-message.el (wl-message-prev-page): Ignore errors while - scroll-down. - -2001-01-14 Yuuichi Teranishi - - * wl-mime.el: Use elmo-original-message-mode instead of - mmelmo-original-mode. - - * wl-fldmgr.el: Use `wl-folder-get-elmo-folder' instead of - `elmo-folder-get-spec'; - (wl-fldmgr-add-completion-all-completions): - Use `elmo-folder-list-subfolders' instead of `elmo-list-folders'. - - * wl-e21.el (wl-plugged-set-folder-icon): Use `elmo-folder-type' instead - of `elmo-folder-get-type'. - - * wl-draft.el: Use `wl-folder-get-elmo-folder' instead of - `elmo-folder-get-spec'; - Use `elmo-folder-msgdb-path' instead of `elmo-msgdb-expand-path'; - Use `elmo-folder-append-message' instead of `elmo-append-msg'; - Use `elmo-folder-list-messages' instead of `elmo-list-folder'; - Use `elmo-message-fetch' instead of `elmo-read-msg-with-cache' or - `elmo-read-msg-no-cache'; - Use `elmo-message-file-name' instead of `elmo-get-msg-filename'; - Use `elmo-folder-delete-messages' instead of `elmo-delete-msgs'. - (wl-default-draft-cite): Use `elmo-msgdb-overview-get-entity'. - (wl-draft-dispatch-message): Use `elmo-file-cache-save' instead of - `elmo-cache-save'; - (wl-draft-reedit): Use `elmo-message-file-name'. - - * wl-expire.el: Use `elmo-folder-name-internal'; - Use `elmo-folder-list-messages' instead of `elmo-list-folder'; - Use macro `wl-summary-buffer-msgdb' instead of variable - `wl-summary-buffer-msgdb'; - Use `wl-folder-get-elmo-folder' instead of `elmo-folder-get-spec'; - Use macro `wl-summary-buffer-folder-name' instead of variable - `wl-summary-buffer-folder-name'. - * wl-score.el: Likewise. - - * wl-message.el: Rewrite for new message buffer cache mechanism. - (wl-message-buffer-cache-buffer-get): New macro. - (wl-message-buffer-cache-folder-get): Ditto. - (wl-message-buffer-cache-message-get): Ditto. - (wl-message-buffer-cache-entry-make): Ditto. - (wl-message-buffer-cache-hit): Ditto. - (wl-message-buffer-cache-sort): New function. - (wl-message-buffer-cache-add): Ditto. - (wl-message-buffer-cache-delete): Ditto. - (wl-message-buffer-cache-clean-up): Ditto. - (wl-message-buffer-window): Rewrite. - (wl-message-select-buffer): Renamed from `wl-select-buffer'. - (wl-message-buffer-display): New function. - (wl-message-display-internal): New function. - -2001-01-12 Yuuichi Teranishi +2001-02-07 Yuuichi Teranishi - * wl-folder.el: Use `elmo-folder-name-internal'; - Use `wl-folder-get-elmo-folder'; - Use `elmo-folder-list-messages' instead of - `elmo-list-folder'; - Use `elmo-folder-get-primitive-list' instead of - `elmo-folder-get-primitive-spec-list'; - Use `elmo-folder-list-subfolders' instead of `elmo-list-folders'; - Use `elmo-folder-msgdb-path' instead of `elmo-msgdb-expand-path'; - Use `elmo-folder-create' instead of `elmo-create-folder'. - (wl-folder-create-newsgroups-from-nntp-access2): Abolish. - (wl-folder-get-elmo-folder): New macro. - (wl-folder-elmo-folder-cache-get): Ditto. - (wl-folder-elmo-folder-cache-put): Ditto. - (wl-folder-suspend): Call `elmo-quit'. - - * wl.el: Use `elmo-folder-msgdb-path' instead of `elmo-msgdb-expand-path'; - Use `elmo-folder-list-messages' instead of `elmo-list-folder'; - Use `elmo-net-port-info' instead of `elmo-folder-portinfo'; - Use `wl-folder-get-elmo-folder' instead of `elmo-folder-get-spec'. - (toplevel): require 'cl. - (wl-exit): Call `wl-message-buffer-cache-clean-up' and `elmo-quit'. - - * wl-summary.el: Rewrite to use new elmo interface. + * wl-draft.el (wl-draft-parse-msg-id-list-string): Fix. - 2001-02-06 Yuuichi Teranishi * wl-mime.el (wl-draft-preview-message):