[Mew-dist 14185] Re: (祝) 予選突破バージョン

[Ninomiya Hideyuki]

おやすみなさい	二宮@お四国 です

二宮 秀幸 は Sat, 23 Sep 2000 00:20:04 +0900 頃に
    Subject:    [Mew-dist 14179] Re: (祝) 予選突破バージョン
    Message-Id: <20000923.002047.39162518.nin at example.com>
れお> '((-5 num) mark type (5 date) " " (14 from) " " (0 subj))
れお>                          ↓
れお> '(-5 type (5 date) " " (14 from) " " (0 subj))
れお> 
れお> としちゃえば良いと思います。

これをちょこっとやってみました。
# マクロでラッパを書いただけともいう....

Index: mew-scan.el
===================================================================
RCS file: /tmp/am/od/cvs/mew/mew-scan.el,v
retrieving revision 0.17
diff -c -r0.17 mew-scan.el
*** mew-scan.el	2000/09/21 22:36:31	0.17
--- mew-scan.el	2000/09/22 16:22:18
***************
*** 10,15 ****
--- 10,18 ----
  
  (require 'mew)
  
+ (defmacro mew-scan-form-get (f)
+   (` (append (list (list (car (, f )) 'num) 'mark) (cdr (, f)))))
+ 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Pre-defined functions for mew-scan-form
***************
*** 169,175 ****
      (catch 'loop
        (while lst
  	(setq flds (nth 0 (car lst)))
! 	(setq form (nth 1 (car lst)))
  	(setq lst (cdr lst))
  	(if (eq flds t)
  	    (throw 'loop (setq ret form)))
--- 172,178 ----
      (catch 'loop
        (while lst
  	(setq flds (nth 0 (car lst)))
! 	(setq form (mew-scan-form-get (nth 1 (car lst))))
  	(setq lst (cdr lst))
  	(if (eq flds t)
  	    (throw 'loop (setq ret form)))
---
ICQ UIN:57442553                          二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint:  6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
PGP-Public-Key:    http://user.shikoku.ne.jp/~nin/pgp/public-key.txt
mailto:nin at example.com   http://user.shikoku.ne.jp/~nin/index.html
mailto:nin at example.com http://home.jp.freebsd.org/~nin/index.html