(defvar ew-ignore-76bytes-limit nil)
(defvar ew-permit-sticked-comment nil)
(defvar ew-permit-sticked-special nil)
+(defvar ew-permit-null-encoded-text nil)
-(defvar ew-parse-error-sit-for-seconds 0)
-
-;;; 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-remove-bare-crlf nil)
+(defvar ew-default-mime-charset 'x-ctext)
;;;
(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)
-))
+ '(
+;;; std11 (rfc822, rfc1123)
+ (from ew-scan-unibyte-std11 . ew:tag-mailbox+)
+ (sender ew-scan-unibyte-std11 . ew:tag-mailbox)
+ (to ew-scan-unibyte-std11 . ew:tag-address+)
+ (resent-to ew-scan-unibyte-std11 . ew:tag-address+)
+ (cc ew-scan-unibyte-std11 . ew:tag-address+)
+ (resent-cc ew-scan-unibyte-std11 . ew:tag-address+)
+ (bcc ew-scan-unibyte-std11 . ew:tag-address*)
+ (resent-bcc ew-scan-unibyte-std11 . ew:tag-address*)
+ (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*)
+ (references ew-scan-unibyte-std11 . ew:tag-phrase-msg-id*)
+ (keywords ew-scan-unibyte-std11 . ew:tag-phrase*)
+ (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+)
+ (received ew-scan-unibyte-std11)
+ (resent-reply-to ew-scan-unibyte-std11 . ew:tag-address+)
+ (resent-from ew-scan-unibyte-std11 . ew:tag-mailbox+)
+ (resent-sender ew-scan-unibyte-std11 . ew:tag-mailbox)
+ (resent-date ew-scan-unibyte-std11)
+ (return-path ew-scan-unibyte-std11)
+;;; rfc1049
+ ;; (content-type ew-scan-unibyte-std11)
+;;; rfc2045
+ (mime-version ew-scan-unibyte-std11)
+ (content-type ew-scan-unibyte-mime)
+ (content-transfer-encoding ew-scan-unibyte-mime)
+ (content-id ew-scan-unibyte-std11)
+ (content-description ew-scan-unibyte-unstructured)
+;;; rfc2183
+ (content-disposition ew-scan-unibyte-mime)
+;;; rfc1864
+ (content-md5 ew-scan-unibyte-none)
+;;; rfc2076
+ (status ew-scan-unibyte-none)
+;;; draft-ietf-drums-msg-fmt-05
+ ;; (date ew-scan-unibyte-std11)
+ ;; (from ew-scan-unibyte-std11 . ew:tag-mailbox+)
+ ;; (sender ew-scan-unibyte-std11 . ew:tag-mailbox)
+ ;; (reply-to ew-scan-unibyte-std11 . ew:tag-address+)
+ ;; (to ew-scan-unibyte-std11 . ew:tag-address+)
+ ;; (cc ew-scan-unibyte-std11 . ew:tag-address+)
+ ;; (bcc ew-scan-unibyte-std11 . ew:tag-address*)
+ ;; (message-id ew-scan-unibyte-std11)
+ ;; (in-reply-to ew-scan-unibyte-std11)
+ ;; (references ew-scan-unibyte-std11)
+ ;; (subject ew-scan-unibyte-unstructured)
+ ;; (comments ew-scan-unibyte-unstructured)
+ ;; (keywords ew-scan-unibyte-std11 . ew:tag-phrase*)
+ ;; (resent-date ew-scan-unibyte-std11)
+ ;; (resent-from ew-scan-unibyte-std11 . ew:tag-mailbox+)
+ ;; (resent-sender ew-scan-unibyte-std11 . ew:tag-mailbox)
+ ;; (resent-to ew-scan-unibyte-std11 . ew:tag-address+)
+ ;; (resent-cc ew-scan-unibyte-std11 . ew:tag-address+)
+ ;; (resent-bcc ew-scan-unibyte-std11 . ew:tag-address*)
+ ;; (resent-message-id ew-scan-unibyte-std11)
+ ;; (return-path ew-scan-unibyte-std11)
+ ;; (received ew-scan-unibyte-std11)
+;;; draft-ietf-drums-mail-followup-to-00
+ (mail-followup-to ew-scan-unibyte-std11 . ew:tag-mailbox+)
+;;; draft-ietf-usefor-article-01
+ ;; (date ew-scan-unibyte-std11)
+ ;; (from ew-scan-unibyte-std11 . ew:tag-mailbox+)
+ ;; (message-id ew-scan-unibyte-std11)
+ ;; (subject ew-scan-unibyte-unstructured)
+ (newsgroups ew-scan-unibyte-none)
+ (path ew-scan-unibyte-none)
+ (followup-to ew-scan-unibyte-none)
+ (expires ew-scan-unibyte-std11)
+ ;; (reply-to ew-scan-unibyte-std11 . ew:tag-address+)
+ ;; (references ew-scan-unibyte-std11 . ew:tag-phrase-msg-id*)
+ (control ew-scan-unibyte-none)
+ (distribution ew-scan-unibyte-none)
+ ;; (keywords ew-scan-unibyte-std11 . ew:tag-phrase*)
+ (summary ew-scan-unibyte-unstructured)
+ (approved ew-scan-unibyte-std11 . ew:tag-mailbox+)
+ (lines ew-scan-unibyte-none)
+ (xref ew-scan-unibyte-none)
+ (organization ew-scan-unibyte-unstructured)
+ (user-agent ew-scan-unibyte-mime)
+ (supersedes ew-scan-unibyte-std11)
+ (replaces ew-scan-unibyte-std11)
+ (replaced-by ew-scan-unibyte-std11)
+ (archive ew-scan-unibyte-none)
+;;; draft-ietf-usefor-posted-mailed-01
+ (posted-and-mailed ew-scan-unibyte-none)
+ (followup-host ew-scan-unibyte-none) ; news-url
+;;; draft-ietf-mailext-new-fields-13
+ (auto-submitted ew-scan-unibyte-mime)
+ ;; (supersedes ew-scan-unibyte-std11)
+ ;; (expires ew-scan-unibyte-std11)
+;;; others
+ (x-face ew-scan-unibyte-none)
+ (x-face-version ew-scan-unibyte-none)
+ (x-pgp-sig ew-scan-unibyte-none)
+ (x-pgp-sig-version ew-scan-unibyte-none)
+ (x-pgp-key-info ew-scan-unibyte-none)
+ (x-info ew-scan-unibyte-none)
+ ))
(defvar ew-decode-field-default-syntax '(ew-scan-unibyte-unstructured))
+(defvar ew-parse-error-sit-for-seconds 0)
+
;;; constants.
(defconst ew-token-regexp "[-!#-'*+0-9A-Z^-~]+")
-(defconst ew-encoded-text-regexp "[!->@-~]+")
+(defconst ew-encoded-text-regexp "[!->@-~]*")
+
(defconst ew-encoded-word-regexp
(concat (regexp-quote "=?")
"\\(" ew-token-regexp "\\)"
"\\(" ew-encoded-text-regexp "\\)"
(regexp-quote "?=")))
+(defconst ew-anchored-encoded-word-regexp
+ (concat "\\`" ew-encoded-word-regexp "\\'"))
+
+(defconst ew-b-regexp
+ (eval-when-compile
+ (concat "\\`\\("
+ "[A-Za-z0-9+/]"
+ "[A-Za-z0-9+/]"
+ "[A-Za-z0-9+/]"
+ "[A-Za-z0-9+/]"
+ "\\)*"
+ "\\("
+ "[A-Za-z0-9+/]"
+ "[A-Za-z0-9+/]"
+ "\\(==\\|[A-Za-z0-9+/]=\\)"
+ "\\)?"
+ "\\'")))
+
+(defconst ew-q-regexp
+ "\\`\\([^=?]\\|=[0-9A-Fa-f][0-9A-Fa-f]\\)*\\'")
+
+(defconst ew-quoting-char ?+)
+(defconst ew-quoting-chars-regexp
+ (concat (regexp-quote (char-to-string ew-quoting-char)) "*"))
+
+(defconst ew-type2-regexp
+ (concat (regexp-quote "=?")
+ "\\(" ew-token-regexp "\\)"
+ (regexp-quote "?")
+ "\\(" ew-token-regexp "\\)"
+ (regexp-quote "?")
+ "\\(" ew-encoded-text-regexp "\\)"
+ (regexp-quote "?")
+ "\\'"))
+
+(defconst ew-byte-decoder-alist
+ '(("B" . ew-decode-b)
+ ("Q" . ew-decode-q)))
+
+(defconst ew-byte-checker-alist
+ '(("B" . ew-b-check)
+ ("Q" . ew-q-check)))
+
;;; utilities for variables.
+(defconst ew-option-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
+ ew-permit-null-encoded-text))
+
+(defun ew-save-boolean-options ()
+ (let ((tmp 1) (opts ew-option-list) (val 0))
+ (while opts
+ (when (symbol-value (car opts)) (setq val (logior val tmp)))
+ (setq tmp (lsh tmp 1)
+ opts (cdr opts)))
+ val))
+
+(defun ew-restore-boolean-options (val)
+ (let ((tmp 1) (opts ew-option-list))
+ (while opts
+ (set (car opts) (not (zerop (logand val tmp))))
+ (setq tmp (lsh tmp 1)
+ opts (cdr opts)))))
+
(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))
+ (cons
+ ew-default-mime-charset
+ (ew-save-boolean-options)))
+
projects / elisp / flim.git / blobdiff