* 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
 
-;; Copyright (C) 1996-2011 Free Software Foundation, Inc.
+;; Copyright (C) 1996-2012 Free Software Foundation, Inc.
 
 ;; 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
-;; that are to be evaled as the result of the default format strings.
+;; that are to be evalled 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.
@@ -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)
-      `(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))
@@ -688,7 +690,7 @@ are supported for %s."
                     (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 evalled.
          (if (or max-width cut-width ignore-value
                  (and (featurep 'xemacs)
                       gnus-use-correct-string-widths))