Re: Smaller Face: wrap margin

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> In <w4vfhip4hf.fsf@mid.packer.its.vanderbilt.edu>
>>>>>	"Andrew A. Raines" <aaraines@pobox.com> wrote:

> If I run gnus-face-from-file in *scratch* with C-j, I see the right
> output, but for some reason message-required-*-headers throws that
> TAB in there.  Any ideas?

message-fill-field does it, can be avoided by the following:

(push '(Face ignore) message-field-fillers)

>>>>> In <v9brjautzo.fsf@marauder.physik.uni-ulm.de>
>>>>>	Reiner Steib <4.uce.03.r.s@nurfuerspam.de> wrote:

> The only ugliness is, that the first line is one char longer than
> the others.

>  (defun gnus-face-encode ()
> -  (let ((step 72))
> +  (let ((step (- 76 (length "Face:"))))
>      (base64-encode-region (point-min) (point-max))

That function seems to become simple by letting b64-e-r not make
line breaking as follows:

(defun gnus-face-encode ()
  (base64-encode-region (point-min) (point-max) t)
  (goto-char (min (+ (point-min) 71) (point-max)))
  (while (not (eobp))
    (insert "\n ")
    (goto-char (min (+ (point) 76) (point-max))))
  (buffer-string))

I think it is possible to enlarge each line length, though.  An
example is in this message header.
-- 
Katsumi Yamaoka <yamaoka@jpl.org>