[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[mhc:02027] 印刷時の出力ヘッダ内容拡張 (mew のみ)



野口です。

たまに、登録したものを紙に印刷することがあるのですが、その際ヘッダ部分に
以下も出力して欲しいと思っていました。

X-SC-Subject:
X-SC-Location: 
X-SC-Day: 
X-SC-Time: 

そこで、添付 patch のようにしてみました。
("mhc 0.25 + snap(mhc-current-snap20050120)"に対する差分です)

.emacs で 
  (setq mhc-mew/print-sc-header t)
としておくと、"#" (mew-summary-print)で出力されるヘッダとして、
  X-SC-Subject:
  X-SC-Location: 
  X-SC-Day: 
  X-SC-Time: 
が追加されます。
(デフォルトでは mhc-mew/print-sc-header = nil です)

# Mewしか使用していないため、他のMUAは考慮しておりません。

以上、ご検討いただければ幸いです。

-- 
NOGUCHI Yusuke <nogunogu@xxxxxxxxxxxxxxxxx>

*** mhc-mew.el.org	Thu Jan 27 18:42:26 2005
--- mhc-mew.el	Mon Feb 14 12:09:47 2005
***************
*** 53,64 ****
--- 53,68 ----
  (defconst mhc-mew/lc-ascii
    (if (>= emacs-major-version 20) 'ascii 0))
  
+ (defvar mhc-mew/print-sc-header nil nil)
  ;; Setup function:
  
  ;;;###autoload
  (defun mhc-mew-setup ()
    (require 'mhc)
    (setq mhc-mailer-package 'mew)
+   (if mhc-mew/print-sc-header
+       (setq mew-field-for-printing 
+ 	    (append mew-field-for-printing '("X-SC-Subject:" "X-SC-Location:" "X-SC-Day:" "X-SC-Time:"))))
    (mhc-setup)
    (add-hook 'mew-summary-mode-hook 'mhc-mode)
    (add-hook 'mew-virtual-mode-hook 'mhc-mode)
***************
*** 430,436 ****
    (mew-header-goto-end)
    (mew-header-arrange (point-min) (point)))
  
- 
  (provide 'mhc-mew)
  (put 'mhc-mew 'summary-filename 'mhc-mew-summary-filename)
  (put 'mhc-mew 'summary-display-article 'mhc-mew-summary-display-article)
--- 434,439 ----