--- advogato.el	2003-02-11 20:01:02.000000000 +0200
+++ advogato~mx.el	2004-02-11 14:00:10.000000000 +0200
@@ -54,6 +54,7 @@
 ;;                       escapes HTML markups.
 ;; v1.2 -- 11 Feb 2002 - Improved cookie support. Now can read the advogato
 ;;                       cookies from Mozilla/galeon/url cookies file.
+;; v1.3 -- 11 Feb 2004 - Allow the user to set the mozilla profile name
 ;; Please note once again that advogato.el needs the v1.6.1 of xml-rpc.el
 ;; from http://elisp.info
 
@@ -81,6 +82,9 @@
 (defvar advogato-mode-map nil
   "Keymap for advogato-mode.")
 
+(defvar advogato-mozilla-profile-name nil
+  "Name of the mozilla profile to look at for advogato cookies.")
+
 (unless advogato-mode-map
   (setq advogato-mode-map (copy-keymap text-mode-map))
   (define-key advogato-mode-map "\C-c\C-c" 'advogato-send-post)
@@ -194,12 +198,18 @@ Returns an alist of matching cookies if 
     ;; FTSO Mozilla!
     (if (file-directory-p "~/.mozilla")
         (let ((dir
-               (let (d)
-                 (cond ((file-directory-p (setq d "~/.mozilla/default"))
-                        d)
-                       ((file-directory-p
-                         (setq d (concat "~/.mozilla/" (user-login-name))))
-                        d)
+	       (let (d)
+		 (cond ((and 
+			 advogato-mozilla-profile-name
+			 (file-directory-p 
+			  (setq d 
+				(concat "~/.mozilla/" advogato-mozilla-profile-name))))
+			d)
+		       ((file-directory-p (setq d "~/.mozilla/default"))
+			d)
+		       ((file-directory-p
+			 (setq d (concat "~/.mozilla/" (user-login-name))))
+			d)
                        (t (error "can't figure out your .mozilla profile"))))))
           (setq dir (car (directory-files dir "\\.slt$" nil 'dirs)))
           (or dir (error "couldn't figure mozilla salt directory"))