From cd7d0683126e91eeb58f4035f8d7d02f36be03d7 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 1 Oct 2006 13:12:18 +0000 Subject: [PATCH] * elmo.el: Fix typo: disptch -> dispatch. --- elmo/ChangeLog | 4 ++++ elmo/elmo.el | 8 ++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 7698b5c..dae999d 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,7 @@ +2006-10-01 Yoichi NAKAYAMA + + * elmo.el: Fix typo: disptch -> dispatch. + 2006-10-01 Hiroya Murata * elmo.el (elmo-file-tag): New class. diff --git a/elmo/elmo.el b/elmo/elmo.el index e52ae66..da05529 100644 --- a/elmo/elmo.el +++ b/elmo/elmo.el @@ -1069,7 +1069,7 @@ If optional argument IF-EXISTS is nil, load on demand. (eval-and-compile (luna-define-class elmo-file-tag)) -(defconst elmo-append-messages-disptch-table +(defconst elmo-append-messages-dispatch-table '(((nil . null) . elmo-folder-append-messages-*-null) ((filter . nil) . elmo-folder-append-messages-filter-*) ((nil . filter) . elmo-folder-append-messages-*-filter) @@ -1113,9 +1113,9 @@ If second optional argument SAME-NUMBER is specified, message number is preserved \(if possible\). Returns a list of message numbers successfully appended." (let ((rest (if caller - (cdr (memq (rassq caller elmo-append-messages-disptch-table) - elmo-append-messages-disptch-table)) - elmo-append-messages-disptch-table)) + (cdr (memq (rassq caller elmo-append-messages-dispatch-table) + elmo-append-messages-dispatch-table)) + elmo-append-messages-dispatch-table)) result) (while rest (let ((types (car (car rest)))) -- 1.7.10.4