lisp/gnus/rfc2047.el

157   (narrow-to-region
197 		    (narrow-to-region beg end)
211   "The type of encoding done by `rfc2047-encode-region'.
213 `rfc2047-encode-region' to either `mime' or `address-mime'.  See
240 			   (mm-coding-system-p
243 		      (mm-encode-coding-region
245 		       (mm-charset-to-coding-system
249 		  (rfc2047-fold-region
261 	      (rfc2047-encode-region (point) (point-max)))
264 		(rfc2047-encode-region (point) (point-max))))
270 		  (mm-encode-coding-region (point) (point-max)
282 	      (rfc2047-encode-region (point) (point-max)))
290 ;;; 		  (rfc2047-encode-region (point-min) (point-max))
292 	     ((mm-coding-system-p method)
296 		  (mm-encode-coding-region (point) (point-max) method)))
310 	 (mm-find-mime-charset-region (point-min) (point-max))))
353 (defun rfc2047-encode-region (b e)
354   "Encode words in region B to E that need encoding.
355 By default, the region is treated as containing RFC2822 addresses.
358     (narrow-to-region b e)
441 		    (rfc2047-encode-region (1+ start) (1- (point))))
537     (rfc2047-fold-region b (point))
546     (rfc2047-encode-region (point-min) (point-max))
562 				      (mm-encode-coding-string string cs)
586 					     (mm-encode-coding-string
628   "Encode the word(s) in the region B to E.
629 Point moves to the end of the region."
630   (let ((mime-charset (or (mm-find-mime-charset-region b e) (list 'us-ascii)))
637 		 cs (mm-charset-to-coding-system mime-charset))
639 			(mm-coding-system-p cs))
642 	     (narrow-to-region b e)
659 	     (rfc2047-fold-region (rfc2047-point-at-bol) b)
678 	     (delete-region (if (eq (aref eword 0) ?\n)
701       (rfc2047-fold-region (point-min) (point-max)))))
703 (defun rfc2047-fold-region (b e)
704   "Fold long lines in region B to E."
706     (narrow-to-region b e)
776       (rfc2047-unfold-region (point-min) (point-max)))))
778 (defun rfc2047-unfold-region (b e)
779   "Unfold lines in region B to E."
781     (narrow-to-region b e)
791 	    (delete-region eol (progn
807     (quoted-printable-encode-region
818     (subst-char-in-region (point-min) (point-max) ?  ?_)
857 violates RFC2047 section 5, while we have a capability to decode it.
858 If it is non-nil, the decoder will decode B- or Q-encoding in each
859 encoded-word, concatenate them, and decode it by charset.  Otherwise,
860 the decoder will fully decode each encoded-word before concatenating
876 		  (narrow-to-region beg (1- (point)))
886 (defun rfc2047-charset-to-coding-system (charset)
887   "Return coding-system corresponding to MIME CHARSET.
888 If your Emacs implementation can't decode CHARSET, return nil."
896   (let ((cs (mm-charset-to-coding-system charset)))
898 	   (setq cs (or (mm-charset-to-coding-system mail-parse-charset)
900 	  ((mm-coding-system-p cs))
904 	   (setq cs (mm-charset-to-coding-system mail-parse-charset))))
909 (defun rfc2047-decode-encoded-words (words)
916       (if (and (setq cs (rfc2047-charset-to-coding-system
920 			  (setq text (base64-decode-string
923 			  (setq text (quoted-printable-decode-string
934 	;; Don't decode encoded-word.
940 				(mm-decode-coding-string (cdar rest) cs)
953 ;; Fixme: This should decode in place, not cons intermediate strings.
963 (defun rfc2047-decode-region (start end &optional address-mime)
964   "Decode MIME-encoded words in region between START and END.
976 	(narrow-to-region start end)
995 	  (delete-region e end)
996 	  (insert (rfc2047-decode-encoded-words (nreverse words)))
998 	    (narrow-to-region e (point))
1056 	    (mm-decode-coding-region b e mail-parse-charset))
1062 	  (mm-decode-coding-region b (point-max) mail-parse-charset))))))
1064 (defun rfc2047-decode-address-region (start end)
1065   "Decode MIME-encoded words in region between START and END.
1068   (rfc2047-decode-region start end t))
1070 (defun rfc2047-decode-string (string &optional address-mime)
1087 	    (rfc2047-decode-region (point-min) (point-max) address-mime))
1102 	  ;; `decode-coding-string' in Emacs offers a third optional
1105 	  ;; consider anything else than a `nil' coding system
1107 	  ;; `rfc2047-decode-string' is called multiple times for each
1110 	  ;; `decode-coding-string' if the string is purely ASCII.
1111 	  (if (and (fboundp 'detect-coding-string)
1113 		   (eq (detect-coding-string string t) 'undecided))
1115 	    (mm-decode-coding-string string mail-parse-charset))
1118 (defun rfc2047-decode-address-string (string)
1122   (rfc2047-decode-string string t))
1127   ;; base64-decode-string accepts buggy strings, this function could