From ee0f1acaea5a0b4f200e5b64cc739bf3d1cca2d8 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 17 Dec 2002 23:55:23 +0000 Subject: [PATCH] * binhex.el (binhex-insert-char): Eval-and-compile. --- lisp/ChangeLog | 30 +++++++++++++++++------------- lisp/binhex.el | 17 ++++++++++------- 2 files changed, 27 insertions(+), 20 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index df34e1347..02bb16980 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2002-12-17 Katsumi Yamaoka + + * binhex.el (binhex-insert-char): Eval-and-compile. + 2002-12-17 Jesper Harder * lpath.el: Add tool-bar-local-item-from-menu. @@ -119,7 +123,7 @@ lines problem and improves performance by skipping over all articles IDs that preceed the first nov entry in the server's reply. - + 2002-12-11 Katsumi Yamaoka * gnus-sum.el (gnus-tmp-downloaded): New internal variable. @@ -316,7 +320,7 @@ (gnus-agent-summary-mode-map): New keybinding `J s' for fetching process-marked articles. (gnus-agent-summary-fetch-series): Command for `J s'. Articles - in the series are individually fetched to minimize lose of + in the series are individually fetched to minimize lose of content due to an error/quit. (gnus-agent-synchronize-flags-server, gnus-agent-add-server): Use gnus-message instead of message. @@ -331,7 +335,7 @@ Removed function; history is not used anymore. (gnus-agent-fetch-articles): Fix handling of crossposted articles. (gnus-agent-crosspost): Started rewrite then realized that a typo - in gnus-agent-fetch-articles ensures that this function is never + in gnus-agent-fetch-articles ensures that this function is never called. This will need to be fixed later. (gnus-agent-check-overview-buffer): Some sanity checks on the agent overview buffer. This is a safety net used during @@ -355,17 +359,17 @@ GROUP, FORCE. Do not restrict usage. (gnus-agent-uncached-articles): New function. (gnus-agent-retrieve-headers): Use it. - (gnus-agent-regenerate-group): No longer needs to be called from - gnus-agent-regenerate. Individual groups may be regenerated. The + (gnus-agent-regenerate-group): No longer needs to be called from + gnus-agent-regenerate. Individual groups may be regenerated. The regeneration code now fixes duplicate, and mis-ordered, NOV entries. - The article fetch dates are validated in the article alist. The + The article fetch dates are validated in the article alist. The article alist is pruned of entries that do not reference existing - NOV entries. All changes are computed then applied with - inhibit-quit bound to t. As a result, it is now safe to quit out of + NOV entries. All changes are computed then applied with + inhibit-quit bound to t. As a result, it is now safe to quit out of regeneration. The optional clean parameter has been replaced with - an optional reread parameter. Clean is no longer necessary as + an optional reread parameter. Clean is no longer necessary as regeneration gets the appropriate setting from - gnus-agent-consider-all-articles. The new reread parameter will + gnus-agent-consider-all-articles. The new reread parameter will result in fetched, or all, articles being marked as unread. (gnus-agent-regenerate): Removed code to regenerate the history file as it is no longer used. @@ -381,11 +385,11 @@ line. (gnus-summary-highlight-line): Use new face for downloaded articles. - (gnus-summary-insert-old-articles): Improved performance by + (gnus-summary-insert-old-articles): Improved performance by replacing the initial LIST of older articles with a compressed - RANGE of older articles. Some servers appear to lie about + RANGE of older articles. Some servers appear to lie about their active range so the original list could contain millions - of article numbers. The range is not expanded into a list + of article numbers. The range is not expanded into a list until the optional ALL parameter has been applied. 2002-11-18 Kai Gro,A_(Bjohann diff --git a/lisp/binhex.el b/lisp/binhex.el index dba9190ea..085bf7ada 100644 --- a/lisp/binhex.el +++ b/lisp/binhex.el @@ -81,13 +81,16 @@ input and write the converted data to its standard output." ((boundp 'temporary-file-directory) temporary-file-directory) ("/tmp/"))) -(if (featurep 'xemacs) - (defalias 'binhex-insert-char 'insert-char) - (defun binhex-insert-char (char &optional count ignored buffer) - (if (or (null buffer) (eq buffer (current-buffer))) - (insert-char char count) - (with-current-buffer buffer - (insert-char char count))))) +(eval-and-compile + (defalias 'binhex-insert-char + (if (featurep 'xemacs) + 'insert-char + (lambda (char &optional count ignored buffer) + "Insert COUNT copies of CHARACTER into BUFFER." + (if (or (null buffer) (eq buffer (current-buffer))) + (insert-char char count) + (with-current-buffer buffer + (insert-char char count))))))) (defvar binhex-crc-table [0 4129 8258 12387 16516 20645 24774 28903 -- 2.25.1