From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Alexander Pohoyda Newsgroups: gmane.emacs.devel Subject: Re: [rmail-mbox-branch]: inital problems Date: 16 Sep 2004 18:59:20 +0200 Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Message-ID: <87fz5irvyv.fsf@oak.pohoyda.family> References: <1095204498.515091.23142.nullmailer@Update.UU.SE> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1095354006 27219 80.91.229.6 (16 Sep 2004 17:00:06 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 16 Sep 2004 17:00:06 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Sep 16 18:59:49 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 1C7zbo-0000Tp-00 for ; Thu, 16 Sep 2004 18:59:48 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1C7zhU-00056t-LH for ged-emacs-devel@m.gmane.org; Thu, 16 Sep 2004 13:05:40 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1C7zhH-00056T-GS for emacs-devel@gnu.org; Thu, 16 Sep 2004 13:05:27 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1C7zhF-00055l-U8 for emacs-devel@gnu.org; Thu, 16 Sep 2004 13:05:26 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1C7zhF-00055U-Sn for emacs-devel@gnu.org; Thu, 16 Sep 2004 13:05:25 -0400 Original-Received: from [213.165.64.20] (helo=mail.gmx.net) by monty-python.gnu.org with smtp (Exim 4.34) id 1C7zbQ-0005Vs-W8 for emacs-devel@gnu.org; Thu, 16 Sep 2004 12:59:25 -0400 Original-Received: (qmail 10130 invoked by uid 65534); 16 Sep 2004 16:59:22 -0000 Original-Received: from p508429C6.dip0.t-ipconnect.de (EHLO www2.gmx.net) (80.132.41.198) by mail.gmx.net (mp017) with SMTP; 16 Sep 2004 18:59:22 +0200 X-Authenticated: #14602519 Original-Received: from oak.pohoyda.family (localhost [127.0.0.1]) by www2.gmx.net (8.12.10/8.12.10) with ESMTP id i8GGxKAk000414; Thu, 16 Sep 2004 18:59:20 +0200 (CEST) (envelope-from alexander.pohoyda@gmx.net) Original-Received: (from apog@localhost) by oak.pohoyda.family (8.12.10/8.12.10/Submit) id i8GGxK4k000411; Thu, 16 Sep 2004 18:59:20 +0200 (CEST) (envelope-from alexander.pohoyda@gmx.net) X-Authentication-Warning: oak.pohoyda.family: apog set sender to alexander.pohoyda@gmx.net using -f Original-To: "Alfred M. Szmidt" In-Reply-To: <1095204498.515091.23142.nullmailer@Update.UU.SE> Original-Lines: 96 User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3.50 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:27167 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:27167 "Alfred M. Szmidt" writes: > If you start rmail without having a file to read (or if you read a > babyl-RMAIL file), you get the following: > > No messages to show. Add something better soon. > rmail-desc-get-keywords: Args out of range: [], 0 > > Opening an existing mbox file on the other hand produces this: > > Processing new messages... > rmail-get-sender: Symbol's function definition is void: mail-strip-quoted-names Please try 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))) -- Alexander Pohoyda PGP Key fingerprint: 7F C9 CC 5A 75 CD 89 72 15 54 5F 62 20 23 C6 44