[Mew-dist 14503] mew-folder-make-alist() error

[Hideyuki SHIRAI ( 白井秀行 )]

どうも最近 'M-x mew' したときに(ごくまれにですが)
mew-folder-make-alist() がエラーになるときがあります。

本当にこいつがが原因かどうかはわからないけど、elisp info の
'Compiling Macros' のお約束に違反しているから、defmacro の定義位
置を変えておいた方が良いと思います。

-- 
白井秀行 (mailto:shirai at example.com)

--- mew.el.orig	Wed Oct 11 15:23:36 2000
+++ mew.el	Thu Oct 12 11:04:32 2000
@@ -256,6 +256,9 @@
 (defvar mew-folder-list nil)
 (defvar mew-folder-alist nil)
 
+(defmacro mew-folder-make-alist (list)
+  (` (mapcar (function mew-folder-pair) (, list))))
+
 (defun mew-folder-setup (&optional interactivep)
   (interactive)
   (if interactivep
@@ -419,9 +422,6 @@
 ;;
 ;;
 ;;
-
-(defmacro mew-folder-make-alist (list)
-  (` (mapcar (function mew-folder-pair) (, list))))
 
 (defun mew-folder-pair (folder)
   (let* ((dir (directory-file-name (mew-folder-to-dir folder)))