2004-02-10 Yuuichi Teranishi <teranisi@gohome.org>

	* 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 <lenbok@myrealbox.com>

	* 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.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 2ad9e8b..c6debff 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,21 @@
 2004-02-10  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * 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 <lenbok@myrealbox.com>
+
+       * 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  <teranisi@gohome.org>
+
        * 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 "#<removed>"
   "Mark for removed folder."
   :type 'string