- 359 名前：名無しさん＠お腹いっぱい。 mailto:sage [03/05/22 22:59]
- >>357
--- mew-scan.el 2003/05/21 12:36:19 1.183
+++ mew-scan.el 2003/05/22 13:46:04
@@ -312,7 +312,7 @@
(setq par-id (or (mew-idstr-get-first-id (MEW-XREF) 'no-angle) ""))
(when (string= par-id "")
(setq irt-list (mew-idstr-to-id-list (MEW-IRT) 'no-angle))
- (if (length irt-list)
+ (if (= (length irt-list) 1)
(setq par-id (car irt-list))
(setq par-id (or (mew-idstr-get-last-id (MEW-REF) 'no-angle)
(car irt-list)
かな。
後、M-x mew-thread-glue すると
X-Mew-Ref: msgid が付くけど、
X-Mew-Ref: <msgid> にしないと
(mew-idstr-get-first-id (MEW-XREF) 'no-angle)
が nil を返すんじゃないかなあ。
まあ、そのうち直るでしょ。
|
 |
