[Mew-dist 07587] mew-sort 拡張

[Toru YANO ( 矢野 暢 )]

矢野＠s-fineです。
# なんか変なメールを送ったかもしれません。

  私は、MLからのメールを幾つかのフォルダに入れてからソートを
かけて、並びかえてから読んでいたんですが、mewのソートは、ソー
ト用のキーがフォルダ事に設定できなかったので、少し拡張してみ
ました。

  mew-sort-default-key-alist っていう alist で、以下のように
フォルダとデフォルトのソートキーを定義すれば、その定義したフォ
ルダのデフォルトソートキーがかわります。

(setq mew-sort-default-key-alist
      '(("+tmp/beginners" . "x-sequence")
        ("+tmp/elips" . "x-mail-count")
        ("+tmp/fml" . "x-mail-count")
        ("+tmp/wl" . "x-mail-count")
        ("+tmp/wm" . "x-mail-count")
        ("+tmp/tm" . "x-ml-count")
        ("+tmp/unit" . "x-mail-Count")))

# とくにサブジェクトに番号が付かないMLだと便利かなと思います。

  あと、関係ないですが、mewencode.c の version_message[] っ
て、981219 ではないんでしょうか？
-------------- next part --------------
*** mew-sort.el.orig	Tue Feb  9 23:04:35 1999
--- mew-sort.el	Tue Feb  9 23:03:58 1999
***************
*** 15,21 ****
        ()
      (mew-mark-clean)
      (let* ((folder (buffer-name))
! 	   (field-mode (mew-input-sort-key))
  	   (field (car field-mode))
  	   (mode (cdr field-mode))
  	   rbeg)
--- 15,24 ----
        ()
      (mew-mark-clean)
      (let* ((folder (buffer-name))
! 	   (sort-key (or (cdr (assoc folder 
! 				     mew-sort-default-key-alist))
! 			 mew-sort-default-key))
! 	   (field-mode (mew-input-sort-key sort-key))
  	   (field (car field-mode))
  	   (mode (cdr field-mode))
  	   rbeg)
-------------- next part --------------
*** mew-minibuf.el.orig	Sun Dec  6 19:06:43 1998
--- mew-minibuf.el	Sun Dec  6 21:23:24 1998
***************
*** 147,167 ****
  ;;;
  ;;; Sort key
  ;;;
  
  (defvar mew-input-sort-key-hist nil)
  
! (defun mew-input-sort-key ()
    (mew-input-clear)
    (setq mew-input-complete-function (function mew-complete-sort-key))
    (let* ((field:mode (read-from-minibuffer
! 		      (format "Sort by (%s)? : " mew-sort-default-key)
  		      ""
  		      mew-input-map
  		      nil 
  		      'mew-input-sort-key-hist))
  	 field mode)
      (if (or (null field:mode) (equal field:mode ""))
! 	(setq field:mode mew-sort-default-key))
      (setq field (car (mew-split field:mode ?:)))
      (setq mode  (or (car (cdr (mew-split field:mode ?:)))
  		    (cdr (assoc field mew-sort-key-alist))
--- 147,168 ----
  ;;;
  ;;; Sort key
  ;;;
+ ;;; mew-sort-default-key-alist
  
  (defvar mew-input-sort-key-hist nil)
  
! (defun mew-input-sort-key (mew-sort-key)
    (mew-input-clear)
    (setq mew-input-complete-function (function mew-complete-sort-key))
    (let* ((field:mode (read-from-minibuffer
! 		      (format "Sort by (%s)? : " mew-sort-key)
  		      ""
  		      mew-input-map
  		      nil 
  		      'mew-input-sort-key-hist))
  	 field mode)
      (if (or (null field:mode) (equal field:mode ""))
! 	(setq field:mode mew-sort-key))
      (setq field (car (mew-split field:mode ?:)))
      (setq mode  (or (car (cdr (mew-split field:mode ?:)))
  		    (cdr (assoc field mew-sort-key-alist))
-------------- next part --------------
*** mew-vars.el.orig	Tue Nov 24 15:53:45 1998
--- mew-vars.el	Sun Dec  6 21:50:56 1998
***************
*** 834,839 ****
--- 834,841 ----
    "*Default sort key when inputing a sort key. 
  Its format is key:mode where more is found in \"mew-sort-modes\".")
  
+ (defvar mew-sort-default-key-alist nil)
+ 
  (defvar mew-sort-key-alist
    '(("date" . "date") ("subject") ("from") ("to") ("newsgroups")
      ("posted" . "date") ("x-sequence" . "num") ("x-mail-count" . "num"))