From: teranisi <teranisi>
Date: Tue, 10 Feb 2004 01:56:54 +0000 (+0000)
Subject: 2004-02-10  Yuuichi Teranishi  <teranisi@gohome.org>
X-Git-Tag: wl-2_11_25~77
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2ee7a110b10252c266335c4997cab280a45487b6;p=elisp%2Fwanderlust.git

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
--- 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
--- 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 "#<removed>"
   "Mark for removed folder."
   :type 'string