[Mew-dist 06049] Re: mew reply
Kazu Yamamoto ( 山本和彦 )
kazu at example.com
1998年 8月 20日 (木) 18:46:52 JST
結局、
(1) contrib/mew-xface-mule.el は消した
(2) mew-header-get-value に以下のように only-one という引数を
増やした。
で解決することにします。x-face-mule の get-value に第2引数として t を
増やして下さい。
(defun mew-header-get-value (field &optional only-one)
"currently, when no match, it returns nil."
;; maybe called in narrowed region.
;; we can't widen for citation.
(let ((case-fold-search t)
(start nil)
(match nil)
(ret nil))
(save-excursion
(mew-header-goto-end)
(save-restriction
(narrow-to-region (point-min) (point))
(if (>= (count-lines (point-min) (point-max))
mew-header-max-length)
() ;; xxx error?
(goto-char (point-min))
(catch 'only-one
(while (re-search-forward (format "^%s[ \t]*" field) nil t)
(setq start (match-end 0))
(forward-line)
(mew-header-goto-next)
(setq match (mew-buffer-substring start (1- (point))))
(if (string= "" match)
()
(if ret
(setq ret (concat ret "," match))
(setq ret match)
(if only-one (throw 'only-one nil)))))))))
ret))
--かず
Mew-dist メーリングリストの案内