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 (file)
--- 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 (file)
--- 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