Importing pgnus-0.26.

[elisp/gnus.git-] / lisp / qp.el

diff --git a/lisp/qp.el b/lisp/qp.el
index fd54392..ea88dbd 100644 (file)
--- a/lisp/qp.el
+++ b/lisp/qp.el
@@ -56,19 +56,22 @@
    (quoted-printable-decode-region (point-min) (point-max))
    (buffer-string)))
 
-(defun quoted-printable-encode-region (from to &optional fold)
+(defun quoted-printable-encode-region (from to &optional fold class)
   "QP-encode the region between FROM and TO.
-If FOLD, fold long lines."
+If FOLD, fold long lines.  If CLASS, translate the characters
+matched by that regexp."
   (interactive "r")
   (save-excursion
     (save-restriction
       (narrow-to-region from to)
       (goto-char (point-min))
-      (while (re-search-forward "[\000-\007\013\015-\037\200-\377_=]" nil t)
+      (while (and (skip-chars-forward
+                  (or class "^\000-\007\013\015-\037\200-\377="))
+                 (not (eobp)))
        (insert
         (prog1
-            (upcase (format "=%x" (char-after (1- (point)))))
-          (delete-char -1))))
+            (upcase (format "=%x" (char-after (point))))
+          (delete-char 1))))
       (when fold
        ;; Fold long lines.
        (goto-char (point-min))