From: morioka <morioka>
Date: Mon, 4 May 1998 21:16:19 +0000 (+0000)
Subject: Move definition of constant 'quoted-printable-hex-chars and
X-Git-Tag: flim-1_1_0~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cb18631938a612c004872d05ace6720e8209233c;p=elisp%2Fflim.git

Move definition of constant 'quoted-printable-hex-chars and
'quoted-printable-octet-regexp to mime-def.el.
---

diff --git a/eword-decode.el b/eword-decode.el
index 4d94218..cf7edc7 100644
--- a/eword-decode.el
+++ b/eword-decode.el
@@ -84,11 +84,6 @@
 ;;; @@ Quoted-Printable
 ;;;
 
-(defconst quoted-printable-hex-chars "0123456789ABCDEF")
-(defconst quoted-printable-octet-regexp
-  (concat "=[" quoted-printable-hex-chars
-	  "][" quoted-printable-hex-chars "]"))
-
 (defconst eword-Q-encoded-text-regexp
   (concat "\\([^=?]\\|" quoted-printable-octet-regexp "\\)+"))
 ;; (defconst eword-Q-encoding-and-encoded-text-regexp
diff --git a/mel-q.el b/mel-q.el
index 63d95fb..9a8f954 100644
--- a/mel-q.el
+++ b/mel-q.el
@@ -26,13 +26,12 @@
 ;;; Code:
 
 (require 'emu)
+(require 'mime-def)
 
 
 ;;; @ Quoted-Printable encoder
 ;;;
 
-(defconst quoted-printable-hex-chars "0123456789ABCDEF")
-
 (defsubst quoted-printable-quote-char (character)
   (concat
    "="
@@ -188,10 +187,6 @@ It calls external quoted-printable encoder specified by
 			)))
 	       string "")))
 
-(defconst quoted-printable-octet-regexp
-  (concat "=[" quoted-printable-hex-chars
-	  "][" quoted-printable-hex-chars "]"))
-
 (defun quoted-printable-internal-decode-region (start end)
   (save-excursion
     (save-restriction