aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/international/utf7.el6
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/international/utf7.el b/lisp/international/utf7.el
index 82dad3da6eb..f245d7eb696 100644
--- a/lisp/international/utf7.el
+++ b/lisp/international/utf7.el
@@ -1,4 +1,4 @@
1;;; utf7.el --- UTF-7 encoding/decoding for Emacs -*-coding: utf-8;-*- 1;;; utf7.el --- UTF-7 encoding/decoding for Emacs -*- lexical-binding:t -*-
2 2
3;; Copyright (C) 1999-2017 Free Software Foundation, Inc. 3;; Copyright (C) 1999-2017 Free Software Foundation, Inc.
4 4
@@ -64,7 +64,6 @@
64;;; Code: 64;;; Code:
65 65
66(require 'base64) 66(require 'base64)
67(eval-when-compile (require 'cl))
68(require 'mm-util) 67(require 'mm-util)
69 68
70(defconst utf7-direct-encoding-chars " -%'-*,-[]-}" 69(defconst utf7-direct-encoding-chars " -%'-*,-[]-}"
@@ -140,8 +139,7 @@ Use IMAP modification if FOR-IMAP is non-nil."
140(defun utf7-decode-internal (&optional for-imap) 139(defun utf7-decode-internal (&optional for-imap)
141 "Decode UTF-7 text in (temporary) buffer. 140 "Decode UTF-7 text in (temporary) buffer.
142Use IMAP modification if FOR-IMAP is non-nil." 141Use IMAP modification if FOR-IMAP is non-nil."
143 (let ((start (point-min)) 142 (let ((start (point-min)))
144 (end (point-max)))
145 (goto-char start) 143 (goto-char start)
146 (let* ((esc-pattern (concat "^" (char-to-string (if for-imap ?& ?+)))) 144 (let* ((esc-pattern (concat "^" (char-to-string (if for-imap ?& ?+))))
147 (base64-chars (concat "A-Za-z0-9+" 145 (base64-chars (concat "A-Za-z0-9+"