[mew-dist 26628] mew-pick-define-macro

[YANO Toru ( 矢野 暢 )]

矢野です。

多分最新のmew(4.2.54)にてmew-pick-define-macroを
使って、以下のように記載すると以下のerrorになります。

<記述>
(mew-pick-define-macro "ml-tocc=#" "ml=# | tocc=#")
(mew-pick-define-macro "wl" "ml=Wanderlust")

<エラー出力>
')' alone

一応(setq debug-on-error t)を設定してとった*Backtrace*を
添付します。
---------+---------+---------+---------+---------+-----
YANO Toru (矢野 暢)  toru at example.com
  Web : http://sakura.maid.ne.jp/
-------------- next part --------------
Debugger entered--Lisp error: (error "')' alone")
  signal(error ("')' alone"))
  error("')' alone")
  mew-pick-parse-open/close()
  mew-pick-parse-elements()
  mew-pick-parse1()
  byte-code("〓9 	@A〓=〓  \n〓
 〓〓!〓\n〓〓〓\f〓
B〓 〓〓
B)〓〓〓〓\"〓〓  〓〓" [mew-inherit-pick-tokens prv pprv cur sub mew-inherit-pick-ret close error "'( )' is empty" nil open mew-pick-parse1 throw loop t found] 4)
  mew-pick-parse-open/close()
  mew-pick-parse-elements()
  mew-pick-parse1()
  mew-pick-parse((open open ("=" "x-ml-name" "Wanderlust") or ("=" "list-id" "Wanderlust")))
  mew-pick-canonicalize-pattern("((x-ml-name=Wanderlust | list-id=Wanderlust))")
  mew-summary-pick(nil)
  call-interactively(mew-summary-pick)