レス数が1000を超えています。残念ながら全部は表示しません。

Mew

270 ：名無しさん＠Ｅｍａｃｓ ：02/02/08 16:33

>>256
こんなのどう?
mew-prog-pdfは適当に設定してね。

(defvar mew-prog-application/pdf-pdftotext "pdftotext")
(defvar mew-prog-application/pdf-pdftotext-arg '("-raw" "-eucjp"))

(defun mew-mime-application/pdf-pdftotext (cache begin end &optional params)
(let ((file (mew-make-temp-name))
(msgbuf (current-buffer))
(orig mew-prog-application/pdf-pdftotext-arg)
arg)
(message "Displaying an PDF document...")
(setq arg (list "-" file))
(while orig
(setq arg (cons (car orig) arg))
(setq orig (cdr orig)))
(setq arg (nreverse arg))
(save-excursion
(set-buffer cache)
(mew-flet
(write-region begin end file nil 'no-msg))
(set-buffer msgbuf)
(mew-elet
(mew-frwlet
'euc-jp mew-cs-dummy
(apply (function call-process)
mew-prog-application/pdf-pdftotext nil t nil arg))
;; delete last page break
(when (re-search-backward "\n" nil t)
(delete-region (match-beginning 0) (match-end 0)))))
(when mew-break-pages
(mew-message-narrow-to-page))
(message "Displaying an PDF document...done")))

read.cgi ver5.26+ (01/10/21-)