Re: extract regexp

[Kevin Rodgers]

Bruce Ingalls wrote:

> Thanks for your help. This is what I ended up with:
>
> (setq moz-prefs-filename
>     "~/.mozilla/...[random name].../default/prefs.js")
>
> (defun moz-get-prefs (key)
>   "Returns value in prefs.js corresponding to key. key is line in prefs.js
> file, up to desired value (which is followed by closing double quote).
> Returns nil, if no key or value not found. Requires the variable
> moz-prefs-filename, which is set in e-config.el."
>
>   (with-temp-buffer
>     (condition-case err
>     (insert-file-contents-literally moz-prefs-filename)
>       (error 'nil))
>     (if (re-search-forward key nil t)
>     (setq server (match-string 1))
>       'nil)))
>
> And here is how I call it:
>
>   (moz-get-prefs
>        "user_pref(\"mail.server.server1.hostname\", \"\\([^\"]+\\)")


That's rather awkward Emacs Lisp style.  I would write it as:

(defvar moz-user-pref-file "~/.mozilla/...[random name].../default/prefs.js")

(defun moz-user-pref (key)
  "Return the user_pref value for KEY in the `moz-user-pref-file' file."
  (let ((key-regexp (format "user_pref(\"%s\", \"\\([^\"]+\\)\")" key)))
    (with-temp-buffer
     (condition-case nil
         (insert-file-contents-literally moz-user-pref-file)
       (error nil))
     (if (re-search-forward key-regexp nil t)
         (match-string 1)))))

(setq server
      (moz-user-pref "mail.server.server1.hostname"))

> Unfortunately, it gets a little more tricky, as I should check that
> mail.server.server*.type
> is pop3 or imap, and not nntp, but this is good enough.

Is that information in the prefs.js file, or do you have to querey the server?


--
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;";>Kevin Rodgers</a>