setup french dictionary for Lucia when composing mail

 

File modified: lisp/emacs.d/ivan-message.el

Change321 at Sun Jul 18 18:25:03 2010 +0200 by Ivan Kanis <ivan@tao>

diff -r fa5e44b97d7d -r b755d6bbb266 lisp/emacs.d/ivan-message.el
--- a/lisp/emacs.d/ivan-message.el	Thu Jul 08 17:38:28 2010 +0200
+++ b/lisp/emacs.d/ivan-message.el	Sun Jul 18 18:25:03 2010 +0200
@@ -76,32 +76,35 @@
 (defun ivan-message-setup ()
   "Setup language in a message"
   (ivan-bbdb-late-bind)
-  (let ((string (message-fetch-field "to"))
-        (match nil)
-        (rec nil))
-    (if string
-        ;; it's a reply
-        (progn
-          ;; look in bbdb note for a clue
-          (if (and (string-match "<\\(.*\\)>" string)
-                   (setq match (match-string 1 string))
-                   (setq rec (car (bbdb-search (bbdb-records) nil nil match))))
-              (let ((language (ivan-bbdb-note rec)))
-                (cond ((eq language 'french)
-                       (ivan-message-setup-french))
-                      ((eq language 'japanese)
-                       (ivan-message-setup-japanese))
-                      (t
-                       (ivan-message-setup-english))))
-            ;; otherwize look at language of message replied to
-            (if (and (get-buffer "*Article*")
-                     (string= "french"
-                              (save-window-excursion
-                                (set-buffer "*Article*")
-                                (al-lang-conf (al-guess-buffer-language))
-                                (caar result-list-long))))
-                (ivan-message-setup-french)
-              (ivan-message-setup-english))))))
+  (if (eq ivan-var-user 'lucia)
+      (ivan-message-setup-french)
+    (let ((string (message-fetch-field "to"))
+          (match nil)
+          (rec nil))
+      (if string
+          ;; it's a reply
+          (progn
+            ;; look in bbdb note for a clue
+            (if (and (string-match "<\\(.*\\)>" string)
+                     (setq match (match-string 1 string))
+                     (setq
+                      rec (car (bbdb-search (bbdb-records) nil nil match))))
+                (let ((language (ivan-bbdb-note rec)))
+                  (cond ((eq language 'french)
+                         (ivan-message-setup-french))
+                        ((eq language 'japanese)
+                         (ivan-message-setup-japanese))
+                        (t
+                         (ivan-message-setup-english))))
+              ;; otherwize look at language of message replied to
+              (if (and (get-buffer "*Article*")
+                       (string= "french"
+                                (save-window-excursion
+                                  (set-buffer "*Article*")
+                                  (al-lang-conf (al-guess-buffer-language))
+                                  (caar result-list-long))))
+                  (ivan-message-setup-french)
+                (ivan-message-setup-english)))))))
   (flyspell-mode 1)
   (auto-fill-mode 1)
   (ivan-keymap-define message-mode-map

back