[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/pop3.el
From: |
ShengHuo ZHU |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/pop3.el |
Date: |
Fri, 12 Apr 2002 07:33:14 -0400 |
Index: emacs/lisp/gnus/pop3.el
diff -c emacs/lisp/gnus/pop3.el:1.18 emacs/lisp/gnus/pop3.el:1.19
*** emacs/lisp/gnus/pop3.el:1.18 Mon Apr 8 18:54:56 2002
--- emacs/lisp/gnus/pop3.el Fri Apr 12 07:32:23 2002
***************
*** 1,6 ****
;;; pop3.el --- Post Office Protocol (RFC 1460) interface
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000
;; Free Software Foundation, Inc.
;; Author: Richard L. Pieri <address@hidden>
--- 1,6 ----
;;; pop3.el --- Post Office Protocol (RFC 1460) interface
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002
;; Free Software Foundation, Inc.
;; Author: Richard L. Pieri <address@hidden>
***************
*** 244,261 ****
(looking-at "\001\001\001\001\n") ; MMDF
(looking-at "BABYL OPTIONS:") ; Babyl
))
! (let ((from (mail-strip-quoted-names (mail-fetch-field "From")))
! (date (split-string (or (mail-fetch-field "Date")
! (pop3-make-date))
! " "))
! (From_))
;; sample date formats I have seen
;; Date: Tue, 9 Jul 1996 09:04:21 -0400 (EDT)
;; Date: 08 Jul 1996 23:22:24 -0400
;; should be
;; Tue Jul 9 09:04:21 1996
(setq date
! (cond ((string-match "[A-Z]" (nth 0 date))
(format "%s %s %s %s %s"
(nth 0 date) (nth 2 date) (nth 1 date)
(nth 4 date) (nth 3 date)))
--- 244,266 ----
(looking-at "\001\001\001\001\n") ; MMDF
(looking-at "BABYL OPTIONS:") ; Babyl
))
! (let* ((from (mail-strip-quoted-names (mail-fetch-field "From")))
! (tdate (mail-fetch-field "Date"))
! (date (split-string (or (and tdate
! (not (string= "" tdate))
! tdate)
! (pop3-make-date))
! " "))
! (From_))
;; sample date formats I have seen
;; Date: Tue, 9 Jul 1996 09:04:21 -0400 (EDT)
;; Date: 08 Jul 1996 23:22:24 -0400
;; should be
;; Tue Jul 9 09:04:21 1996
(setq date
! (cond ((not date)
! "Tue Jan 1 00:00:0 1900")
! ((string-match "[A-Z]" (nth 0 date))
(format "%s %s %s %s %s"
(nth 0 date) (nth 2 date) (nth 1 date)
(nth 4 date) (nth 3 date)))