[mew-dist 21064] Specified time is not representable

[Hiroshi Fujishima]

日付でソートすると、以下のエラーが出ます。

Debugger entered--Lisp error: (error "Specified time is not representable")
  encode-time(7219 2 1 28 6 102)
  (mew-time-ctz-to-sortkey (encode-time sec min hour day mon year))
  (let ((year ...) (mon ...) (day ...) (hour ...) (min ...) (sec ...) (tmzn ...)) (cond (... ...) (... ...)) (setq sec (- sec tmzn)) (mew-time-ctz-to-sortkey (encode-time sec min hour day mon year)))
  (if (string-match mew-time-rfc-regex s) (let (... ... ... ... ... ... ...) (cond ... ...) (setq sec ...) (mew-time-ctz-to-sortkey ...)))
  mew-time-rfc-to-sortkey("Fri, 28 Jun 0102 01:02:19 -0200")
  (if (string= key "") (let (...) (mew-time-ctz-to-sortkey time)) (mew-time-rfc-to-sortkey key))
  mew-sort-key-date("Fri, 28 Jun 0102 01:02:19 -0200" "+inbox" "176")
  funcall(mew-sort-key-date "Fri, 28 Jun 0102 01:02:19 -0200" "+inbox" "176")
  (cons i (funcall func1 value folder num))
  (cons (cons i (funcall func1 value folder num)) ent)
  (setq ent (cons (cons i ...) ent))
  (if (not (looking-at "^\\([0-9]+\\)[ 	]*:[ 	]*")) (forward-line) (setq num (mew-match-string 1)) (setq med (match-end 0)) (forward-line) (mew-header-goto-next) (mew-header-decode-region key med (point)) (setq value (mew-buffer-substring med ...)) (setq files (cons num files)) (setq ent (cons ... ent)) (setq i (1+ i)))
  (while (not (eobp)) (if (not ...) (forward-line) (setq num ...) (setq med ...) (forward-line) (mew-header-goto-next) (mew-header-decode-region key med ...) (setq value ...) (setq files ...) (setq ent ...) (setq i ...)))
  (save-excursion (set-buffer tmpbuf) (mew-erase-buffer) (call-process mew-prog-mewls nil t nil "-b" mew-mail-path "-d" key "-l" "0" "-s" (concat fld " " range)) (goto-char (point-min)) (while (not ...) (if ... ... ... ... ... ... ... ... ... ... ...)))
  (let* ((tmpbuf ...) (funcs ...) (func1 ...) (func2 ...) (i 0) (fld ...) num med value ent) (save-excursion (set-buffer tmpbuf) (mew-erase-buffer) (call-process mew-prog-mewls nil t nil "-b" mew-mail-path "-d" key "-l" "0" "-s" ...) (goto-char ...) (while ... ...)) (mew-remove-buffer tmpbuf) (setq files (vconcat ...)) (setq ent (sort ent func2)) (setq idx (vconcat ...)))
  (progn (let* (... ... ... ... ... ... num med value ent) (save-excursion ... ... ... ... ...) (mew-remove-buffer tmpbuf) (setq files ...) (setq ent ...) (setq idx ...)) (cond (... ... ...) (t ...)) (when (and ... ...) (beginning-of-line) (mew-elet ...)) (if arg (narrow-to-region beg end)) (let* (... ... ... ... ... ... src dst pos) (while ... ... ... ...)) (unless (mew-debug ...) (goto-char ...)) (if arg (widen)) (cond (... ... ... ... ...) (t ... ... ...)) (mew-summary-unlock) (unless (mew-debug ...) (run-hooks ...)) (if arg (message "Sorting %s: %s...done" folder range) (message "Sorting %s...done" folder)))
  (condition-case nil (progn (let* ... ... ... ... ... ...) (cond ... ...) (when ... ... ...) (if arg ...) (let* ... ...) (unless ... ...) (if arg ...) (cond ... ...) (mew-summary-unlock) (unless ... ...) (if arg ... ...)) (quit (select-window win) (set-buffer-modified-p nil) (mew-summary-unlock)))
  (let ((folder ...) (win ...) key type idx files range beg end) (mew-current-set nil nil nil) (mew-decode-syntax-delete) (mew-unhighlight-cursor-line) (mew-summary-retrieve-gap folder) (if (null arg) (setq range mew-range-all) (let ... ... ... ... ... ... ... ... ... ... ...)) (let* (... ...) (setq type ...) (setq key ...)) (if arg (message "Sorting %s: %s..." folder range) (message "Sorting %s..." folder)) (mew-summary-lock t "Sorting") (condition-case nil (progn ... ... ... ... ... ... ... ... ... ... ...) (quit ... ... ...)))
  mew-summary-sort-body(nil)
  (progn (mew-summary-sort-body arg))
  (if (mew-summary-exclusive-p) (progn (mew-summary-sort-body arg)))
  (when (mew-summary-exclusive-p) (mew-summary-sort-body arg))
  (cond ((not ...) (message "'%s' not found!" mew-prog-mewls)) (t (when ... ...)))
  (mew-summary-with-mewls (when (mew-summary-exclusive-p) (mew-summary-sort-body arg)))
  (cond ((not ...) (message "This command cannot be used in this mode")) ((mew-summary-draft-p) (message "This command cannot be used in %s" ...)) (t (mew-summary-with-mewls ...)))
  (mew-summary-not-in-draft (mew-summary-with-mewls (when ... ...)))
  (cond ((not ...) (message "This command cannot be used in this mode")) ((mew-summary-queue-p) (message "This command cannot be used in %s" ...)) (t (mew-summary-not-in-draft ...)))
  (mew-summary-not-in-queue (mew-summary-not-in-draft (mew-summary-with-mewls ...)))
  (cond ((not ...) (message "This command can be used in Summary mode only")) (t (mew-summary-not-in-queue ...)))
  (mew-summary-only (mew-summary-not-in-queue (mew-summary-not-in-draft ...)))
  mew-summary-sort(nil)
  call-interactively(mew-summary-sort)

-- Hiroshi Fujishima