From 6594b5fcaeb53272e1e170fe47a166213eb70324 Mon Sep 17 00:00:00 2001 From: akr Date: Mon, 17 Aug 1998 11:43:34 +0000 Subject: [PATCH] * ew-dec.el: Require 'ew-var. (ew-decode-field-cache-buf): New variable. (ew-decode-field-cache-num): New variable. (ew-decode-field-no-cache): Renamed from `ew-decode-field'. (ew-decode-field): Call `ew-decode-field-no-cache' with caching. --- ChangeLog | 8 +++++++ ew-dec.el | 36 ++++++++++++++++++++++++++++-- ew-var.el | 73 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 115 insertions(+), 2 deletions(-) create mode 100644 ew-var.el diff --git a/ChangeLog b/ChangeLog index 8528a10..246e5dd 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,13 @@ 1998-08-17 Tanaka Akira + * ew-dec.el: Require 'ew-var. + (ew-decode-field-cache-buf): New variable. + (ew-decode-field-cache-num): New variable. + (ew-decode-field-no-cache): Renamed from `ew-decode-field'. + (ew-decode-field): Call `ew-decode-field-no-cache' with caching. + +1998-08-17 Tanaka Akira + * FLIM-ELS (flim-modules): Add `ew-var' and reorder. * ew-var.el: New file. diff --git a/ew-dec.el b/ew-dec.el index 04121e0..4c36576 100644 --- a/ew-dec.el +++ b/ew-dec.el @@ -1,4 +1,5 @@ (require 'emu) +(require 'ew-var) (require 'ew-unit) (require 'ew-scan-s) (require 'ew-scan-m) @@ -6,6 +7,9 @@ (require 'ew-parse) (provide 'ew-dec) +(defvar ew-decode-field-cache-buf '()) +(defvar ew-decode-field-cache-num 300) + (defun ew-decode-field (field-name field-body &optional eword-filter) "Decode MIME RFC2047 encoded-words in a field. FIELD-NAME is a name of the field such as \"To\", \"Subject\" etc. and @@ -21,6 +25,30 @@ If EWORD-FILTER is non-nil, it should be closure. it is called for each successful decoded encoded-word with decoded string as a argument. The return value of EWORD-FILTER is used as decoding result instead of its argument." + (let* ((key (ew-cons* field-name field-body eword-filter + (ew-dynamic-options))) + (tmp (assoc key ew-decode-field-cache-buf))) + (if tmp + (cdr tmp) + (progn + (setq tmp (nthcdr ew-decode-field-cache-num + ew-decode-field-cache-buf)) + (if (cdr tmp) + (progn + (setcdr (cdr tmp) ew-decode-field-cache-buf) + (setq ew-decode-field-cache-buf (cdr tmp)) + (setcdr tmp nil)) + (setq ew-decode-field-cache-buf + (cons (cons nil nil) + ew-decode-field-cache-buf))) + (setcar (car ew-decode-field-cache-buf) key) + (setcdr (car ew-decode-field-cache-buf) + (ew-decode-field-no-cache + field-name field-body eword-filter)) + (cdar ew-decode-field-cache-buf))))) + +(defun ew-decode-field-no-cache (field-name field-body &optional eword-filter) + "No caching version of ew-decode-field." (let ((tmp (assoc (downcase field-name) ew-decode-field-syntax-alist)) frag-anchor frag1 frag2 decode) (if tmp @@ -44,8 +72,12 @@ instead of its argument." (setq frag2 (get frag2 'next-frag))) (funcall decode frag-anchor frag1 frag2 eword-filter) (setq frag1 frag2)) - (mapconcat (lambda (frag) (or (get frag 'result) (symbol-name frag))) - (ew-frag-list frag-anchor) ""))) + (setq frag1 (get frag-anchor 'prev-frag) + tmp ()) + (while (not (eq frag1 frag-anchor)) + (setq tmp (cons (or (get frag1 'result) (symbol-name frag1)) tmp) + frag1 (get frag1 'prev-frag))) + (apply 'concat tmp))) (defun ew-mark (tag anchor) (let ((tlist (cons (list (symbol-value tag)) (ew-pair-list anchor)))) diff --git a/ew-var.el b/ew-var.el new file mode 100644 index 0000000..a16c41c --- /dev/null +++ b/ew-var.el @@ -0,0 +1,73 @@ +(provide 'ew-var) + +;;; user customizable variables. + +(defvar ew-decode-sticked-encoded-word nil) +(defvar ew-decode-quoted-encoded-word nil) +(defvar ew-ignore-75bytes-limit nil) +(defvar ew-ignore-76bytes-limit nil) +(defvar ew-permit-sticked-comment nil) +(defvar ew-permit-sticked-special nil) + +;;; anonymous function to decode ground string. +;; NOTE: STR is CRLF-form and it should return as CRLF-form. +(defvar ew-decode-us-ascii (lambda (str) (decode-coding-string str 'iso-latin-1-unix))) + +;;; +(defvar ew-decode-field-syntax-alist +'(("from" ew-scan-unibyte-std11 . ew:tag-mailbox+-tok) + ("sender" ew-scan-unibyte-std11 . ew:tag-mailbox-tok) + ("to" ew-scan-unibyte-std11 . ew:tag-address+-tok) + ("resent-to" ew-scan-unibyte-std11 . ew:tag-address+-tok) + ("cc" ew-scan-unibyte-std11 . ew:tag-address+-tok) + ("resent-cc" ew-scan-unibyte-std11 . ew:tag-address+-tok) + ("bcc" ew-scan-unibyte-std11 . ew:tag-address*-tok) + ("resent-bcc" ew-scan-unibyte-std11 . ew:tag-address*-tok) + ("message-id" ew-scan-unibyte-std11) + ("resent-message-id" ew-scan-unibyte-std11) + ("in-reply-to" ew-scan-unibyte-std11 . ew:tag-phrase-msg-id*-tok) + ("references" ew-scan-unibyte-std11 . ew:tag-phrase-msg-id*-tok) + ("keywords" ew-scan-unibyte-std11 . ew:tag-phrase*-tok) + ("subject" ew-scan-unibyte-unstructured) + ("comments" ew-scan-unibyte-unstructured) + ("encrypted" ew-scan-unibyte-std11) + ("date" ew-scan-unibyte-std11) + ("reply-to" ew-scan-unibyte-std11 . ew:tag-address+-tok) + ("received" ew-scan-unibyte-std11) + ("resent-reply-to" ew-scan-unibyte-std11 . ew:tag-address+-tok) + ("resent-from" ew-scan-unibyte-std11 . ew:tag-mailbox+-tok) + ("resent-sender" ew-scan-unibyte-std11 . ew:tag-mailbox-tok) + ("resent-date" ew-scan-unibyte-std11) + ("return-path" ew-scan-unibyte-std11) + ("mime-version" ew-scan-unibyte-std11) + ("content-type" ew-scan-unibyte-mime) + ("content-transfer-encoding" ew-scan-unibyte-mime) + ("content-id" ew-scan-unibyte-mime) + ("content-description" ew-scan-unibyte-unstructured) +)) + +(defvar ew-decode-field-default-syntax '(ew-scan-unibyte-unstructured)) + +;;; constants. + +(defconst ew-token-regexp "[-!#-'*+0-9A-Z^-~]+") +(defconst ew-encoded-text-regexp "[!->@-~]+") +(defconst ew-encoded-word-regexp + (concat (regexp-quote "=?") + "\\(" ew-token-regexp "\\)" + (regexp-quote "?") + "\\(" ew-token-regexp "\\)" + (regexp-quote "?") + "\\(" ew-encoded-text-regexp "\\)" + (regexp-quote "?="))) + +;;; utilities for variables. + +(defun ew-dynamic-options () + (list + ew-decode-sticked-encoded-word + ew-decode-quoted-encoded-word + ew-ignore-75bytes-limit + ew-ignore-76bytes-limit + ew-permit-sticked-comment + ew-permit-sticked-special)) -- 1.7.10.4