projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Apply patch by Katsumi Yamaoka <yamaoka@jpl.org>
[gnus]
/
lisp
/
gnus-spec.el
diff --git
a/lisp/gnus-spec.el
b/lisp/gnus-spec.el
index
0ff8ec8
..
2176e3f
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
3
Free Software Foundation, Inc.
+;; Copyright (C) 1996-201
6
Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
@@
-24,9
+24,6
@@
;;; Code:
;;; Code:
-;; For Emacs <22.2 and XEmacs.
-(eval-and-compile
- (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
(eval-when-compile (require 'cl))
(defvar gnus-newsrc-file-version)
(eval-when-compile (require 'cl))
(defvar gnus-newsrc-file-version)
@@
-81,7
+78,6
@@
text properties. This is only needed on XEmacs, as Emacs does this anyway."
(defvar gnus-tmp-unread-and-unselected)
(defvar gnus-tmp-news-method)
(defvar gnus-tmp-news-server)
(defvar gnus-tmp-unread-and-unselected)
(defvar gnus-tmp-news-method)
(defvar gnus-tmp-news-server)
-(defvar gnus-tmp-article-number)
(defvar gnus-mouse-face)
(defvar gnus-mouse-face-prop)
(defvar gnus-tmp-header)
(defvar gnus-mouse-face)
(defvar gnus-mouse-face-prop)
(defvar gnus-tmp-header)
@@
-512,7
+508,8
@@
are supported for %s."
(delete-char -1))
(t
(if (null args)
(delete-char -1))
(t
(if (null args)
- (error 'wrong-number-of-arguments #'my-format n fstring))
+ (signal 'wrong-number-of-arguments
+ (list #'gnus-xmas-format n fstring)))
(let* ((minlen (string-to-number (or (match-string 2) "")))
(arg (car args))
(str (if (stringp arg) arg (format "%s" arg)))
(let* ((minlen (string-to-number (or (match-string 2) "")))
(arg (car args))
(str (if (stringp arg) arg (format "%s" arg)))