From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Richard Stallman Newsgroups: gmane.emacs.devel Subject: Re: [rmail-mbox-branch]: inital problems Date: Sat, 18 Sep 2004 15:07:31 -0400 Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Message-ID: References: <1095204498.515091.23142.nullmailer@Update.UU.SE> <87fz5irvyv.fsf@oak.pohoyda.family> Reply-To: rms@gnu.org NNTP-Posting-Host: deer.gmane.org X-Trace: sea.gmane.org 1095534562 25130 80.91.229.6 (18 Sep 2004 19:09:22 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 18 Sep 2004 19:09:22 +0000 (UTC) Cc: ams@kemisten.nu, emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Sep 18 21:09:16 2004 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1C8kaB-00039P-00 for ; Sat, 18 Sep 2004 21:09:16 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1C8kfy-0002gW-Sh for ged-emacs-devel@m.gmane.org; Sat, 18 Sep 2004 15:15:14 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1C8keS-0001w2-6D for emacs-devel@gnu.org; Sat, 18 Sep 2004 15:13:40 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1C8keP-0001ti-BE for emacs-devel@gnu.org; Sat, 18 Sep 2004 15:13:37 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1C8keP-0001tB-1s for emacs-devel@gnu.org; Sat, 18 Sep 2004 15:13:37 -0400 Original-Received: from [199.232.76.164] (helo=fencepost.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.34) id 1C8kYW-0006nf-Db for emacs-devel@gnu.org; Sat, 18 Sep 2004 15:07:32 -0400 Original-Received: from rms by fencepost.gnu.org with local (Exim 4.34) id 1C8kYV-0004Qh-HM; Sat, 18 Sep 2004 15:07:31 -0400 Original-To: Alexander Pohoyda In-reply-to: <87fz5irvyv.fsf@oak.pohoyda.family> (message from Alexander Pohoyda on 16 Sep 2004 18:59:20 +0200) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:27244 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:27244 Thanks for fixing some bugs. Can someone please install this patch? Index: rmail.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/mail/rmail.el,v retrieving revision 1.368.2.5 diff -u -r1.368.2.5 rmail.el --- rmail.el 23 Feb 2003 00:33:25 -0000 1.368.2.5 +++ rmail.el 26 Nov 2003 22:21:37 -0000 @@ -49,6 +49,7 @@ (eval-and-compile (require 'browse-url) + (require 'mail-utils) (require 'rmaildesc) (require 'rmailhdr)) @@ -172,7 +173,6 @@ "\\|^x-attribution:\\|^x-disclaimer:\\|^x-trace:" "\\|^x-complaints-to:\\|^nntp-posting-date:\\|^user-agent:" "\\|^x-importance:\\|^envelope-to:\\|^delivery-date:" - "\\|^x-importance:\\|^envelope-to:\\|^delivery-date:" "\\|^x-*-priority:\\|x-mimeole:" "\\|^x-babyl-v6-attributes:\\|x-babyl-v6-keywords:") "*Regexp to match header fields that Rmail should normally hide. @@ -645,6 +646,7 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file." (interactive (if current-prefix-arg (list (read-file-name "Run rmail on RMAIL file: ")))) + (require 'rmail-spam-filter) (rmail-require-mime-maybe) (let* ((file-name (expand-file-name (or file-name-arg rmail-file-name))) ;; Use find-buffer-visiting, not get-file-buffer, for those users @@ -2126,13 +2128,14 @@ (setq keyword-list (rmail-desc-get-keywords rmail-current-message))) ;; Generate the result string. - (setq result (mapconcat '(lambda (arg) arg) keyword-list " ")) + (setq result (mapconcat '(lambda (arg) arg) keyword-list ", ")) ;; Update the mode line to display the keywords, the current ;; message index and the total number of messages. (setq mode-line-process - (format " %d/%d %s" - rmail-current-message rmail-total-messages result)) + (concat (format " %d/%d" rmail-current-message rmail-total-messages) + (unless (string-equal result "") + (concat "; " result)))) ;; If rmail-enable-mime is non-nil, we may have to update ;; `mode-line-process' of rmail-view-buffer too. @@ -2458,7 +2461,7 @@ ;; out of the Rmail file so as not to break other mail agents. (progn (message "No messages to show. Add something better soon.") - (rmail-display-labels) + (setq mode-line-process " no messages") (force-mode-line-update)) ;; There are messages. Show one. Index: rmailsum.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/mail/rmailsum.el,v retrieving revision 1.127.2.2 diff -u -r1.127.2.2 rmailsum.el --- rmailsum.el 18 Feb 2003 16:47:23 -0000 1.127.2.2 +++ rmailsum.el 26 Nov 2003 22:21:38 -0000 @@ -1081,7 +1081,8 @@ (if (< n 1) (progn (message "No preceding message") (setq n 1))) - (if (> n total) + (if (and (> n total) + (> total 0)) (progn (message "No following message") (goto-char (point-max)) (rmail-summary-goto-msg nil nowarn skip-rmail)))