[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 メーリングリストの案内