[Mew-dist 16859] Re: b113

[Hideyuki SHIRAI ( 白井秀行 )]

From:  Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [Mew-dist 16849] Re: b113
Message-ID: <20010315.162118.74188858.shirai at example.com>
Date: Thu, 15 Mar 2001 16:21:58 +0900

kazu> * Summary モードで M-a すると、mew-alias-auto-alist
kazu>   (~/Mail/.mew-alias) を編集できます。編集後、C-xC-s で保存するだけで、
kazu>   Mew も変更を理解します。

白井> で mew-alias-auto-alist を save してから edit 出来た方がうれしい
白井> と思います。

白井> # sort してあるともっといいかも。

こんな↓感じかしら。この方が edit しやすいですよ。

-- 
白井秀行 (mailto:shirai at example.com)

*** mew-addrbook.el.orig	Tue Mar 13 01:48:49 2001
--- mew-addrbook.el	Fri Mar 16 12:19:20 2001
***************
*** 514,520 ****
  
  (defun mew-summary-addrbook-edit ()
    (interactive)
!   (let* ((file mew-alias-auto-file))
      (unless (file-name-absolute-p file)
        (setq file (expand-file-name file mew-conf-path)))
      (find-file file)
--- 514,528 ----
  
  (defun mew-summary-addrbook-edit ()
    (interactive)
!   (let ((file mew-alias-auto-file)
! 	alias-alist alias-list match)
!     (setq alias-list (sort (mapcar 'car mew-alias-auto-alist) 'string<))
!     (while alias-list
!       (when (setq match (assoc (car alias-list) mew-alias-auto-alist))
! 	(setq alias-alist (cons match alias-alist)))
!       (setq alias-list (cdr alias-list)))
!     (setq mew-alias-auto-alist (nreverse alias-alist))
!     (mew-lisp-save mew-alias-auto-file mew-alias-auto-alist)
      (unless (file-name-absolute-p file)
        (setq file (expand-file-name file mew-conf-path)))
      (find-file file)