From 6acf3ee1ac291872b30b1d28f04c740811555bb9 Mon Sep 17 00:00:00 2001 From: akr Date: Sat, 7 Nov 1998 06:04:02 +0000 Subject: [PATCH] * eword-decode.el (mime-set-field-decoder): Add mode `unfolding-xover'. (mime-find-field-decoder): Ditto. --- ChangeLog | 5 +++++ eword-decode.el | 18 ++++++++++++------ 2 files changed, 17 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 6d849da..0362de0 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1998-11-07 Tanaka Akira + + * eword-decode.el (mime-set-field-decoder): Add mode `unfolding-xover'. + (mime-find-field-decoder): Ditto. + 1998-11-04 MORIOKA Tomohiko * eword-encode.el (eword-encode-phrase-route-addr-to-rword-list): diff --git a/eword-decode.el b/eword-decode.el index 26042a6..efbc8ff 100644 --- a/eword-decode.el +++ b/eword-decode.el @@ -301,7 +301,8 @@ such as a version of Net$cape)." (defun mime-set-field-decoder (field &rest specs) "Set decoder of FILED. SPECS must be like `MODE1 DECODER1 MODE2 DECODER2 ...'. -Each mode must be `nil', `native', `folding' or `unfolding'. +Each mode must be `nil', `native', `folding', `unfolding' or +`unfolding-xover'. If mode is `nil', corresponding decoder is set up for every modes." (when specs (let ((mode (pop specs)) @@ -320,7 +321,8 @@ If mode is `nil', corresponding decoder is set up for every modes." (mime-set-field-decoder field 'native function 'folding function - 'unfolding function) + 'unfolding function + 'unfolding-xover function) )))) (defvar mime-field-decoder-cache nil) @@ -328,7 +330,8 @@ If mode is `nil', corresponding decoder is set up for every modes." ;;;###autoload (defun mime-find-field-decoder (field &optional mode) "Return function to decode field-body of FIELD in MODE. -Optional argument MODE must be `native', `folding' or `unfolding'. +Optional argument MODE must be `native', `folding', `unfolding' or +`unfolding-xover'. Default value of MODE is `unfolding'." (let ((p (assq (or mode 'unfolding) mime-field-decoder-cache))) (if (and p (setq p (assq field (cdr p)))) @@ -399,7 +402,8 @@ Default value of MODE is `unfolding'." field 'native #'eword-decode-structured-field-body 'folding #'eword-decode-and-fold-structured-field - 'unfolding #'eword-decode-and-unfold-structured-field) + 'unfolding #'eword-decode-and-unfold-structured-field + 'unfolding-xover #'eword-decode-and-unfold-structured-field) )) ;; unstructured fields (default) @@ -407,13 +411,15 @@ Default value of MODE is `unfolding'." t 'native #'eword-decode-unstructured-field-body 'folding #'eword-decode-unstructured-field-body - 'unfolding #'eword-decode-and-unfold-unstructured-field) + 'unfolding #'eword-decode-and-unfold-unstructured-field + 'unfolding-xover #'eword-decode-and-unfold-unstructured-field) ;;;###autoload (defun mime-decode-field-body (field-body field-name &optional mode max-column) "Decode FIELD-BODY as FIELD-NAME in MODE, and return the result. -Optional argument MODE must be `unfolding', `folding' and `native'. +Optional argument MODE must be `unfolding', `folding', `native' or +`unfolding-xover'. Default mode is `unfolding'. If MODE is `folding' and MAX-COLUMN is non-nil, the result is folded -- 1.7.10.4