Package: emacs23-common
Version: 23.1+1-2
Severity: normal
Tags: patch

rmail-summary can't parse the Date: lines in my RMAIL etc:
it only looks for lower case month names. So it gets stuck on my
 'Date:' lines, which look like  "Date: Thu, 06 Aug 2009 18:33:32 +0100".

Solution: also look for capitalised month names.

-- System Information:
Debian Release: squeeze/sid
  APT prefers testing
  APT policy: (990, 'testing'), (500, 'unstable'), (500, 'stable')
Architecture: amd64 (x86_64)

Kernel: Linux 2.6.26-2-amd64 (SMP w/1 CPU core)
Locale: LANG=en_GB.UTF-8, LC_CTYPE=en_GB.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash

Versions of packages emacs23-common depends on:
ii  dpkg                          1.15.3.1   Debian package management system
ii  emacsen-common                1.4.19     Common facilities for all emacsen

emacs23-common recommends no packages.

Versions of packages emacs23-common suggests:
ii  emacs23-common-non-dfsg       23.1+1-1   GNU Emacs shared, architecture ind
ii  emacs23-el                    23.1+1-2   GNU Emacs LISP (.el) files

-- no debconf information
--- rmailsum.el.orig	2009-08-06 18:57:27.000000000 +0100
+++ rmailsum.el	2009-08-06 18:58:11.000000000 +0100
@@ -518,7 +518,7 @@
    (concat (save-excursion
 	     (if (not (re-search-forward "^Date:" nil t))
 		 "      "
-	       (cond ((re-search-forward "\\([^0-9:]\\)\\([0-3]?[0-9]\\)\\([- \t_]+\\)\\([adfjmnos][aceopu][bcglnprtvy]\\)"
+	       (cond ((re-search-forward "\\([^0-9:]\\)\\([0-3]?[0-9]\\)\\([- \t_]+\\)\\([adfjmnosADFJMNOS][aceopu][bcglnprtvy]\\)"
 		       (line-end-position) t)
 		      (format "%2d-%3s"
 			      (string-to-number (buffer-substring
@@ -526,7 +526,7 @@
 						 (match-end 2)))
 			      (buffer-substring
 			       (match-beginning 4) (match-end 4))))
-		     ((re-search-forward "\\([^a-z]\\)\\([adfjmnos][acepou][bcglnprtvy]\\)\\([-a-z \t_]*\\)\\([0-9][0-9]?\\)"
+		     ((re-search-forward "\\([^a-zA-Z]\\)\\([adfjmnosADFJMNOS][acepou][bcglnprtvy]\\)\\([-a-z \t_]*\\)\\([0-9][0-9]?\\)"
 		       (line-end-position) t)
 		      (format "%2d-%3s"
 			      (string-to-number (buffer-substring

Reply via email to