🚀 go-pugleaf

>>>>> In <864py8s51j.fsf@bsd2.4bn.ne.jp>
>>>>>	Yoshitaka Ikeda <ikeda@4bn.ne.jp> wrote:

> 試してみましたが、まだついたままです。自分でも原因探求してみますが。

以前の記事を読み返して見るに、lpr-add-switches 変数の値が nil で
はないですね?  これが nil だと lpr-command の第二引数としてタイ
トルが渡されませんから。このタイトルは "バッファ名 Emacs buffer"
のままです。このことをおっしゃっているのではないですか?
それから、たぶん関係無いですが、lpr-headers-switches 変数の値は
デフォルトの nil ですね?

(defadvice ...) のようなやり方で簡単に対処することは、不可能に思
えてきました。lpr.el を以下のように改造してしまうのが簡単でしょ
う。

--- lpr.el~	2001-07-15 16:15:34 +0000
+++ lpr.el	2006-06-26 09:29:12 +0000
@@ -199,8 +199,8 @@
   ;; On some MIPS system, having a space in the job name
   ;; crashes the printer demon.  But using dashes looks ugly
   ;; and it seems to annoying to do for that MIPS system.
-  (let ((name  (concat (buffer-name) " Emacs buffer"))
-	(title (concat (buffer-name) " Emacs buffer"))
+  (let ((name (buffer-name))
+	(title (buffer-name))
 	;; Make pipes use the same coding system as
 	;; writing the buffer to a file would.
 	(coding-system-for-write (or coding-system-for-write

(変更した後で M-x byte-compile-file して下さい。正規版とは別の場
所に置いて、(load "/some/where/lpr") とするのも良いと思います。)

> #ちなみに、M-x print-bufferだと *spool temp* Emacs buffer になって、
> #M-x lpr-bufferだと print_via_mail.sh Emacs buffer となります。

上記の lpr.el 本体を改造するやり方ならば、lpr-buffer にも効果を
及ぼします。(ちなみに Emacs 21.3 とほぼ同じ 21.4 で試しています。)
-- 
山岡