[Mew-Win32 02473] Re: mew で受け取ったメールの行末

[Sawada toyonobu]

澤田でございます。

私は以下のファイルを eval-after-load "mew" して使ってます。
;;なんで mew-win32.elに書いてあるのにわざわざloadしてるかというと、
;;subject:から下だけを印刷したかったから。
時々、終了をつかまえそこなるのかmeadow毎固まっちゃいますけど。

環境はヘッダの通り。


  の＠会社		non at example.com

;; namazuをver.upしたらindexがぁ。。。
-------------- next part --------------
;; created: Tue Jun 22 11:43:12 1999
;; printing
(setq mew-w32-prog-print     "notepad.exe")
(setq mew-w32-prog-print-arg "/p")
(if (featurep 'meadow)
    (setq mew-w32-cs-print       'shift_jis-dos)
  (setq mew-w32-cs-print       *sjis*dos))
(define-process-argument-editing "/notepad\.exe$"
  (lambda (x)
    (general-process-argument-editing-function x nil t)))

(defun mew-w32-print-buffer ()
  (interactive)
  (setq tempfile (mew-make-temp-name))
  (goto-char (point-min))		  ;; 追加
  (re-search-forward "^Subject: " nil t nil) ;; 追加 (*1)
  (beginning-of-line)			  ;; 追加
;  (mew-frwlet mew-cs-noconv mew-w32-cs-print
  (mew-frwlet mew-cs-autoconv mew-w32-cs-print
;	      (write-region (point-min) (point-max) tempfile nil nil))
	      (write-region (point) (point-max) tempfile nil nil)) ;変更
  (setq w32-start-process-show-window t)
  (cond
   ((eq mew-w32-prog-print-arg nil)
    (call-process mew-w32-prog-print nil nil nil tempfile))
   (t
    (call-process mew-w32-prog-print nil nil nil 
		  mew-w32-prog-print-arg tempfile)))
  (setq w32-start-process-show-window nil)
  (delete-file tempfile))
(setq mew-print-function (function mew-w32-print-buffer))