X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=DOODLE-TIPS;h=f817d19cc5733db85c1c05e2f975c40ee97d4566;hb=4d9c85cce61c5f3a0e1746a885b57b667f3843d8;hp=449126180c12c93b99cbc53c6f7042aa0500f3d7;hpb=612ca4e439ad59dbdb7b59246f1131450d747a44;p=elisp%2Fflim.git diff --git a/DOODLE-TIPS b/DOODLE-TIPS index 4491261..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,18 +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-crlf-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-crlf-to-crlf string)))) - (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