From 2ee7a110b10252c266335c4997cab280a45487b6 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 10 Feb 2004 01:56:54 +0000 Subject: [PATCH] 2004-02-10 Yuuichi Teranishi * wl-vars.el (wl-summary-save-file-suffix): New user option. * wl-summary.el (wl-summary-save): Use it. (wl-summary-mode-menu-spec): Added wl-summary-sort-by-size. * wl-mime.el (wl-mime-save-content): Fix last change. 2004-02-10 Len Trigg * wl-summary.el (wl-summary-overview-entity-compare-by-size): New function. (wl-summary-sort-specs): Added sort. * wl-mime.el (wl-mime-save-content): Expand file name. --- wl/ChangeLog | 16 ++++++++++++++++ wl/wl-mime.el | 13 +++++++------ wl/wl-summary.el | 12 ++++++++++-- wl/wl-vars.el | 5 +++++ 4 files changed, 38 insertions(+), 8 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 2ad9e8b..c6debff 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,21 @@ 2004-02-10 Yuuichi Teranishi + * wl-vars.el (wl-summary-save-file-suffix): New user option. + + * wl-summary.el (wl-summary-save): Use it. + (wl-summary-mode-menu-spec): Added wl-summary-sort-by-size. + + * wl-mime.el (wl-mime-save-content): Fix last change. + +2004-02-10 Len Trigg + + * wl-summary.el (wl-summary-overview-entity-compare-by-size): + New function. + (wl-summary-sort-specs): Added sort. + * wl-mime.el (wl-mime-save-content): Expand file name. + +2004-02-10 Yuuichi Teranishi + * wl-mime.el (wl-draft-preview-message): Fixed typo. * wl-vars.el (wl-draft-always-delete-myself): Ditto. diff --git a/wl/wl-mime.el b/wl/wl-mime.el index aed73e5..d07020a 100644 --- a/wl/wl-mime.el +++ b/wl/wl-mime.el @@ -535,12 +535,13 @@ With ARG, ask destination folder." (defvar wl-mime-save-directory nil "Last saved directory.") ;;; Yet another save method. (defun wl-mime-save-content (entity situation) - (let ((filename (read-file-name "Save to file: " - (expand-file-name - (or (mime-entity-safe-filename entity) - ".") - (or wl-mime-save-directory - wl-temporary-file-directory))))) + (let ((filename (expand-file-name + (read-file-name "Save to file: " + (expand-file-name + (or (mime-entity-safe-filename entity) + ".") + (or wl-mime-save-directory + wl-temporary-file-directory)))))) (while (file-directory-p filename) (setq filename (read-file-name "Please set filename (not directory): " filename))) diff --git a/wl/wl-summary.el b/wl/wl-summary.el index be420e0..18fbee1 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -251,7 +251,7 @@ See also variable `wl-use-petname'." string) string)) -(defvar wl-summary-sort-specs '(number date subject from list-info)) +(defvar wl-summary-sort-specs '(number date subject from list-info size)) (defvar wl-summary-default-sort-spec 'date) (defvar wl-summary-mode-menu-spec @@ -279,6 +279,7 @@ See also variable `wl-use-petname'." ["Stick" wl-summary-stick t] ("Sort" ["By Number" wl-summary-sort-by-number t] + ["By Size" wl-summary-sort-by-size t] ["By Date" wl-summary-sort-by-date t] ["By From" wl-summary-sort-by-from t] ["By Subject" wl-summary-sort-by-subject t] @@ -847,6 +848,12 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'." (run-hooks 'wl-summary-mode-hook)) ;;; +(defun wl-summary-overview-entity-compare-by-size (x y) + "Compare entity X and Y by size." + (< (elmo-message-entity-field x 'size) + (elmo-message-entity-field y 'size))) + + (defun wl-summary-overview-entity-compare-by-date (x y) "Compare entity X and Y by date." (condition-case nil @@ -4493,7 +4500,8 @@ If ASK-CODING is non-nil, coding-system for the message is asked." (if num (save-excursion (setq filename (expand-file-name - (int-to-string num) + (concat (int-to-string num) + wl-summary-save-file-suffix) wl-save-dir)) (if (null (and arg (null (file-exists-p filename)))) diff --git a/wl/wl-vars.el b/wl/wl-vars.el index d6c26a2..6e8ecc6 100644 --- a/wl/wl-vars.el +++ b/wl/wl-vars.el @@ -2339,6 +2339,11 @@ Sender information in summary mode." regexp) :group 'wl-summary) +(defcustom wl-summary-save-file-suffix ".eml" + "Suffix for the saved file name." + :type 'string + :group 'wl-summary) + (defcustom wl-folder-removed-mark "#" "Mark for removed folder." :type 'string -- 1.7.10.4