X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=DOODLE-TIPS;h=f817d19cc5733db85c1c05e2f975c40ee97d4566;hb=4d9c85cce61c5f3a0e1746a885b57b667f3843d8;hp=fe51fbbd054ad5b96e9cf112e8ce985748270292;hpb=3a12cf12b2cb6949dc169140932edc6356a068b7;p=elisp%2Fflim.git diff --git a/DOODLE-TIPS b/DOODLE-TIPS index fe51fbb..f817d19 100644 --- a/DOODLE-TIPS +++ b/DOODLE-TIPS @@ -1,7 +1,8 @@ * You should byte-compile(make). Because DOODLE uses very complex macro. -Especialy ew-line.el, ew-scan-m.el, ew-scan-s.el and ew-scan-u.el that are require 'lex. +Especialy ew-line.el, ew-scan-m.el, ew-scan-s.el and ew-scan-u.el that +are require 'lex. (lex is scanner generator.) * Multiline field-bodies fetched from XOVER is already concatinated, @@ -11,16 +12,29 @@ tell it here. Unless doing it, DOODLE does not decode atoms in phrase because DOODLE cannot decide whether an atom is in phrase or not without field name information. -(setq gnus-unstructured-field-decoder +(setq gnus-structured-field-decoder (lambda (string) (if (fboundp 'ew-decode-field) (let ((ew-ignore-76bytes-limit t)) - (ew-cut-cr-lf (ew-decode-field "Subject" (ew-lf-to-crlf string)))) + (ew-cut-cr-lf + (ew-decode-field "From" (ew-lf-crlf-to-crlf string)))) (eword-decode-and-unfold-structured-field string)))) -(setq gnus-structured-field-decoder +(setq gnus-unstructured-field-decoder (lambda (string) (if (fboundp 'ew-decode-field) (let ((ew-ignore-76bytes-limit t)) - (ew-cut-cr-lf (ew-decode-field "From" (ew-lf-to-crlf string) 'ew-cut-cr-lf))) - (eword-decode-unstructured-field-body (std11-unfold-string string) 'must-unfold)))) + (ew-cut-cr-lf + (ew-decode-field "Subject" (ew-lf-crlf-to-crlf string)))) + (eword-decode-unstructured-field-body + (std11-unfold-string string) 'must-unfold)))) + +* Ignore warnings about args-eword-* when byte-compiling. + +* If you have a problem with ew-ccl-b or other CCL based coding-system, +set ew-bq-use-mel to t. + +* If you want to modify load-path or other variables when +byte-compiling without editing files, set EVALARGS environment variable. + + % EVALARGS='(setq load-path (cons "../apel" load-path))' make