[gnus git] branch master updated: m0-5-274-ga21954c =1= Prefer UTF-8 when the encoding shouldn't matter and changes are small
Katsumi Yamaoka <[email protected]>
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via a21954c36ab5ef1240e96862fa31260dfd9d0b84 (commit)
from b9cd98f91c26ca6e32fa2b4eba6fde5aaded3439 (commit)
- Log -----------------------------------------------------------------
commit a21954c36ab5ef1240e96862fa31260dfd9d0b84
Author: Paul Eggert <[email protected]>
Date: Tue Mar 5 22:07:50 2013 +0000
Prefer UTF-8 when the encoding shouldn't matter and changes are small
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b2784f3..8033b75 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-03-05 Paul Eggert <[email protected]>
+
+ * deuglify.el, gnus-delay.el, gnus-spec.el, gnus-sum.el, html2text.el,
+ message.el, mm-decode.el, mml1991.el, nnir.el, shr.el, utf7.el:
+ Prefer UTF-8 when the encoding shouldn't matter and changes are small.
+
2013-03-03 Ted Phelps <[email protected]>
* shr.el: Make all the overlays set the `evaporate' property so that
diff --git a/lisp/deuglify.el b/lisp/deuglify.el
index 8ef89a9..36e9198 100644
--- a/lisp/deuglify.el
+++ b/lisp/deuglify.el
@@ -270,7 +270,7 @@
:group 'gnus-outlook-deuglify)
(defcustom gnus-outlook-deuglify-attrib-verb-regexp
- "wrote\\|writes\\|says\\|schrieb\\|schreibt\\|meinte\\|skrev\\|a écrit\\|schreef\\|escribió"
+ "wrote\\|writes\\|says\\|schrieb\\|schreibt\\|meinte\\|skrev\\|a écrit\\|schreef\\|escribió"
"Regular expression matching the verb used in an attribution line."
:version "22.1"
:type 'string
@@ -472,7 +472,7 @@ NODISPLAY is non-nil, don't redisplay the article buffer."
(provide 'deuglify)
;; Local Variables:
-;; coding: iso-8859-1
+;; coding: utf-8
;; End:
;;; deuglify.el ends here
diff --git a/lisp/gnus-delay.el b/lisp/gnus-delay.el
index 5c14ffc..921d241 100644
--- a/lisp/gnus-delay.el
+++ b/lisp/gnus-delay.el
@@ -2,7 +2,7 @@
;; Copyright (C) 2001-2013 Free Software Foundation, Inc.
-;; Author: Kai Großjohann <[email protected]>
+;; Author: Kai GroÃjohann <[email protected]>
;; Keywords: mail, news, extensions
;; This file is part of GNU Emacs.
@@ -186,7 +186,7 @@ Checking delayed messages is skipped if optional arg NO-CHECK is non-nil."
(provide 'gnus-delay)
;; Local Variables:
-;; coding: iso-8859-1
+;; coding: utf-8
;; End:
;;; gnus-delay.el ends here
diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 446e826..2606b88 100644
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -418,7 +418,7 @@ characters when given a pad value."
;; them will have the balloon-help text property.
(let ((case-fold-search nil))
(if (string-match
- "\\`\\(.*\\)%[0-9]?[{(«]\\(.*\\)%[0-9]?[»})]\\(.*\n?\\)\\'\\|%[-0-9]*=\\|%[-0-9]*\\*"
+ "\\`\\(.*\\)%[0-9]?[{(«]\\(.*\\)%[0-9]?[»})]\\(.*\n?\\)\\'\\|%[-0-9]*=\\|%[-0-9]*\\*"
format)
(gnus-parse-complex-format format spec-alist)
;; This is a simple format.
@@ -435,13 +435,13 @@ characters when given a pad value."
(goto-char (point-min))
(insert "(\"")
;; Convert all font specs into font spec lists.
- (while (re-search-forward "%\\([0-9]+\\)?\\([«»{}()]\\)" nil t)
+ (while (re-search-forward "%\\([0-9]+\\)?\\([«»{}()]\\)" nil t)
(let ((number (if (match-beginning 1)
(match-string 1) "0"))
(delim (aref (match-string 2) 0)))
(if (or (= delim ?\()
(= delim ?\{)
- (= delim ?\«))
+ (= delim ?\«))
(replace-match (concat "\"("
(cond ((= delim ?\() "mouse")
((= delim ?\{) "face")
@@ -733,7 +733,7 @@ If PROPS, insert the result."
(provide 'gnus-spec)
;; Local Variables:
-;; coding: iso-8859-1
+;; coding: utf-8
;; End:
;;; gnus-spec.el ends here
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 70e1dbc..44fa2db 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -9796,7 +9796,7 @@ installed for this command to work."
(when (message-goto-body)
(gnus-narrow-to-body))
(goto-char (point-min))
- (while (search-forward "·" (point-max) t)
+ (while (search-forward "·" (point-max) t)
(replace-match "."))
(unmorse-region (point-min) (point-max))
(widen)
@@ -12991,7 +12991,7 @@ BOOKMARK is a bookmark name or a bookmark record."
(run-hooks 'gnus-sum-load-hook)
;; Local Variables:
-;; coding: iso-8859-1
+;; coding: utf-8
;; End:
;;; gnus-sum.el ends here
diff --git a/lisp/html2text.el b/lisp/html2text.el
index 4e05f1a..68e7519 100644
--- a/lisp/html2text.el
+++ b/lisp/html2text.el
@@ -1,4 +1,4 @@
-;;; html2text.el --- a simple html to plain text converter
+;;; html2text.el --- a simple html to plain text converter -*- coding: utf-8 -*-
;; Copyright (C) 2002-2013 Free Software Foundation, Inc.
@@ -65,14 +65,14 @@
("–" . "-")
("‰" . "%%")
("±" . "+-")
- ("£" . "£")
+ ("£" . "£")
(""" . "\"")
("»" . ">>")
("&rdquo" . "\"")
("®" . "(R)")
("›" . ")")
("’" . "'")
- ("§" . "§")
+ ("§" . "§")
("¹" . "^1")
("²" . "^2")
("³" . "^3")
diff --git a/lisp/message.el b/lisp/message.el
index 21847ac..d87879b 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1787,7 +1787,7 @@ no, only reply back to the author."
(file-error))
(mm-coding-system-p 'utf-8)
(executable-find idna-program)
- (string= (idna-to-ascii "räksmörgås")
+ (string= (idna-to-ascii "räksmörgås")
"xn--rksmrgs-5wao1o")
t)
"Whether to encode non-ASCII in domain names into ASCII according to IDNA.
@@ -8466,7 +8466,7 @@ Used in `message-simplify-recipients'."
(run-hooks 'message-load-hook)
;; Local Variables:
-;; coding: iso-8859-1
+;; coding: utf-8
;; End:
;;; message.el ends here
diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 812ee73..04f3256 100644
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -1803,7 +1803,7 @@ If RECURSIVE, search recursively."
(replace-match (char-to-string char))))
;; Remove "soft hyphens".
(goto-char (point-min))
- (while (search-forward "" nil t)
+ (while (search-forward "Â" nil t)
(replace-match "" t t))
(libxml-parse-html-region (point-min) (point-max))))
(unless (bobp)
@@ -1825,7 +1825,7 @@ If RECURSIVE, search recursively."
(provide 'mm-decode)
;; Local Variables:
-;; coding: iso-8859-1
+;; coding: utf-8
;; End:
;;; mm-decode.el ends here
diff --git a/lisp/mml1991.el b/lisp/mml1991.el
index 88dee4a..5af7639 100644
--- a/lisp/mml1991.el
+++ b/lisp/mml1991.el
@@ -2,7 +2,7 @@
;; Copyright (C) 1998-2013 Free Software Foundation, Inc.
-;; Author: Sascha Lüdecke <[email protected]>,
+;; Author: Sascha Lüdecke <[email protected]>,
;; Simon Josefsson <[email protected]> (Mailcrypt interface, Gnus glue)
;; Keywords: PGP
@@ -480,7 +480,7 @@ If no one is selected, default secret key is used. "
(provide 'mml1991)
;; Local Variables:
-;; coding: iso-8859-1
+;; coding: utf-8
;; End:
;;; mml1991.el ends here
diff --git a/lisp/nnir.el b/lisp/nnir.el
index 9430911..e51f7ef 100644
--- a/lisp/nnir.el
+++ b/lisp/nnir.el
@@ -1,8 +1,8 @@
-;;; nnir.el --- search mail with various search engines -*- coding: iso-8859-1 -*-
+;;; nnir.el --- search mail with various search engines -*- coding: utf-8 -*-
;; Copyright (C) 1998-2013 Free Software Foundation, Inc.
-;; Author: Kai Großjohann <[email protected]>
+;; Author: Kai GroÃjohann <[email protected]>
;; Swish-e and Swish++ backends by:
;; Christoph Conrad <[email protected]>.
;; IMAP backend by: Simon Josefsson <[email protected]>.
diff --git a/lisp/shr.el b/lisp/shr.el
index 9bf14ee..5df5297 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -347,11 +347,11 @@ size, and full-buffer size."
((eq shr-folding-mode 'none)
(insert text))
(t
- (when (and (string-match "\\`[ \t\n ]" text)
+ (when (and (string-match "\\`[ \t\n ]" text)
(not (bolp))
(not (eq (char-after (1- (point))) ? )))
(insert " "))
- (dolist (elem (split-string text "[ \f\t\n\r\v ]+" t))
+ (dolist (elem (split-string text "[ \f\t\n\r\v ]+" t))
(when (and (bolp)
(> shr-indentation 0))
(shr-indent))
@@ -391,7 +391,7 @@ size, and full-buffer size."
(shr-indent))
(end-of-line))
(insert " ")))
- (unless (string-match "[ \t\r\n ]\\'" text)
+ (unless (string-match "[ \t\r\n ]\\'" text)
(delete-char -1)))))
(defun shr-find-fill-point ()
@@ -1476,7 +1476,7 @@ ones, in case fg and bg are nil."
(provide 'shr)
;; Local Variables:
-;; coding: iso-8859-1
+;; coding: utf-8
;; End:
;;; shr.el ends here
diff --git a/lisp/utf7.el b/lisp/utf7.el
index 69b189b..b55b77a 100644
--- a/lisp/utf7.el
+++ b/lisp/utf7.el
@@ -1,4 +1,4 @@
-;;; utf7.el --- UTF-7 encoding/decoding for Emacs -*-coding: iso-8859-1;-*-
+;;; utf7.el --- UTF-7 encoding/decoding for Emacs -*-coding: utf-8;-*-
;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
@@ -52,10 +52,10 @@
;; necessary coding system. The code below doesn't seem to DTRT
;; generally. E.g.:
;;
-;; (utf7-encode "a+£")
+;; (utf7-encode "a+£")
;; => "a+ACsAow-"
;;
-;; $ echo "a+£"|iconv -f iso-8859-1 -t utf-7
+;; $ echo "a+£"|iconv -f utf-8 -t utf-7
;; a+-+AKM
;;
;; -- fx
-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.
Summary of changes:
lisp/ChangeLog | 6 ++++++
lisp/deuglify.el | 4 ++--
lisp/gnus-delay.el | 4 ++--
lisp/gnus-spec.el | 8 ++++----
lisp/gnus-sum.el | 6 +++---
lisp/html2text.el | 6 +++---
lisp/message.el | 4 ++--
lisp/mm-decode.el | 4 ++--
lisp/mml1991.el | 4 ++--
lisp/nnir.el | 4 ++--
lisp/shr.el | 8 ++++----
lisp/utf7.el | 6 +++---
12 files changed, 35 insertions(+), 29 deletions(-)
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".
The branch, master has been updated
hooks/post-receive
--
Gnus Project