projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* mm-decode.el (mm-dissect-singlepart): Check that the decoder exists.
[gnus]
/
lisp
/
gnus-spec.el
diff --git
a/lisp/gnus-spec.el
b/lisp/gnus-spec.el
index
2e6b7aa
..
e187920
100644
(file)
--- a/
lisp/gnus-spec.el
+++ b/
lisp/gnus-spec.el
@@
-1,6
+1,6
@@
;;; gnus-spec.el --- format spec functions for Gnus
;;; gnus-spec.el --- format spec functions for Gnus
-;; Copyright (C) 1996-201
1
Free Software Foundation, Inc.
+;; Copyright (C) 1996-201
2
Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
@@
-52,7
+52,7
@@
text properties. This is only needed on XEmacs, as Emacs does this anyway."
(defvar gnus-group-indentation "")
;; Format specs. The chunks below are the machine-generated forms
(defvar gnus-group-indentation "")
;; Format specs. The chunks below are the machine-generated forms
-;; that are to be evaled as the result of the default format strings.
+;; that are to be eval
l
ed as the result of the default format strings.
;; We write them in here to get them byte-compiled. That way the
;; default actions will be quite fast, while still retaining the full
;; flexibility of the user-defined format specs.
;; We write them in here to get them byte-compiled. That way the
;; default actions will be quite fast, while still retaining the full
;; flexibility of the user-defined format specs.
@@
-92,7
+92,9
@@
text properties. This is only needed on XEmacs, as Emacs does this anyway."
(defmacro gnus-lrm-string-p (string)
(if (fboundp 'bidi-string-mark-left-to-right)
(defmacro gnus-lrm-string-p (string)
(if (fboundp 'bidi-string-mark-left-to-right)
- `(memq (aref ,string (1- (length ,string))) '(8206))
+ ;; LRM, RLM, PDF characters as integers to avoid breaking Emacs
+ ;; 23.
+ `(memq (aref ,string (1- (length ,string))) '(8206 8207 8236))
nil))
(defvar gnus-lrm-string (if (ignore-errors (string 8206))
nil))
(defvar gnus-lrm-string (if (ignore-errors (string 8206))
@@
-688,7
+690,7
@@
are supported for %s."
(not (and (featurep 'xemacs)
gnus-use-correct-string-widths)))
(insert (number-to-string pad-width)))
(not (and (featurep 'xemacs)
gnus-use-correct-string-widths)))
(insert (number-to-string pad-width)))
- ;; Create the form to be evaled.
+ ;; Create the form to be eval
l
ed.
(if (or max-width cut-width ignore-value
(and (featurep 'xemacs)
gnus-use-correct-string-widths))
(if (or max-width cut-width ignore-value
(and (featurep 'xemacs)
gnus-use-correct-string-widths))