[Emacsweblogs] Re: weblogger.el bugs

[Laura Conrad]

>>>>> "Mark" == Mark A Hershberger <address@hidden> writes:

    Mark> Laura Conrad <address@hidden> writes:
    >> Now it asks me for the URL, name, password, and configuratin name, and
    >> then says:
    >> 
    >> let: `let' bindings can have only one value-form: if, conf, (setcdr
    >> conf settings), (add-to-list weblogger-config-alist (cons
    >> weblogger-config-name settings))

    Mark> Wow.  What a stupid bug.  Thanks, please try the attached.

Now it asks me for my password, and then says:

Debugger entered--Lisp error: (error "serpentpublications.com/80 Name or 
service not known")
  make-network-process(:name "serpentpublications.com" :buffer #<buffer  
*url-http-temp*> :host "serpentpublications.com" :service 80 :nowait t)
  byte-code("address@hidden@�\f
address@hidden@$�\f
address@hidden"address@hidden
�����\"&address@hidden@O�\f
address@hidden@_�\f
address@hidden@o�\f
address@hidden"*�%G�%@" [coding-system-for-write coding-system-for-read 
gw-method name buffer host binary tls open-tls-stream ssl open-ssl-stream memql 
(native) make-network-process :name :buffer :host :service :nowait featurep 
(:nowait t) socks socks-open-network-stream telnet url-open-telnet rlogin 
url-open-rlogin error "Bad setting of url-gateway-method: %s" service 
url-gateway-method conn] 13)
  url-open-stream("serpentpublications.com" #<buffer  *url-http-temp*> 
"serpentpublications.com" 80)
  url-http-find-free-connection("serpentpublications.com" 80)
  url-http([cl-struct-url "http" nil nil "serpentpublications.com" 80 
"/wordpress/xmlrpc.php" nil nil t] (lambda (&rest --cl-rest--) (apply #[... 
"address@hidden@      pL%G�%@" [G98101 G98100 url-debug retrieval 
"Synchronous fetching done (%S)" t] 4] (quote --asynch-buffer--) (quote 
--retrieval-done--) --cl-rest--)) (nil))
  url-retrieve-internal("http://serpentpublications.com/wordpress/xmlrpc.php"; 
(lambda (&rest --cl-rest--) (apply #[... "address@hidden@ pL%G�%@" [G98101 
G98100 url-debug retrieval "Synchronous fetching done (%S)" t] 4] (quote 
--asynch-buffer--) (quote --retrieval-done--) --cl-rest--)) (nil))
  url-retrieve("http://serpentpublications.com/wordpress/xmlrpc.php"; (lambda 
(&rest --cl-rest--) (apply #[... "address@hidden@  pL%G�%@" [G98101 G98100 
url-debug retrieval "Synchronous fetching done (%S)" t] 4] (quote 
--asynch-buffer--) (quote --retrieval-done--) --cl-rest--)))
  
url-retrieve-synchronously("http://serpentpublications.com/wordpress/xmlrpc.php";)
  (let ((buffer ...) result) (with-current-buffer buffer (when ... ...) (when 
... ...)) (xml-rpc-request-process-buffer buffer))
  (if async-callback-function (url-retrieve server-url async-callback-function) 
(let (... result) (with-current-buffer buffer ... ...) 
(xml-rpc-request-process-buffer buffer)))
  (cond ((boundp ...) (if async-callback-function ... ...) (url-retrieve 
server-url t) (when ... ...)) (t (if async-callback-function ... ...)))
  (let ((url-request-method "POST") (url-package-name "xml-rpc.el") 
(url-package-version xml-rpc-version) (url-request-data ...) 
(url-mime-charset-string "utf-8;q=1, iso-8859-1;q=0.5") 
(url-request-coding-system ...) (url-http-attempt-keepalives t) 
(url-request-extra-headers ...)) (when (> xml-rpc-debug 1) (print 
url-request-data ...)) (cond (... ... ... ...) (t ...)))
  (save-excursion (let (... ... ... ... ... ... ... ...) (when ... ...) (cond 
... ...)))
  (unwind-protect (save-excursion (let ... ... ...)))
  xml-rpc-request("http://serpentpublications.com/wordpress/xmlrpc.php"; 
((methodCall nil (methodName nil "blogger.getUsersBlogs") (params nil ... ... 
...))) nil)
  (let* ((m-name ...) (m-params ...) (m-func-call ...)) (when (> xml-rpc-debug 
1) (print m-func-call ...)) (xml-rpc-request server-url m-func-call 
async-callback-func))
  xml-rpc-method-call-async(nil 
"http://serpentpublications.com/wordpress/xmlrpc.php"; blogger\.getUsersBlogs 
("07C72E6970E0FBA5DE21BA9F4800C44534C19870" "admin" "*redacted*"))
  (let ((response ...)) (cond (... ...) (t ...)))
  xml-rpc-method-call("http://serpentpublications.com/wordpress/xmlrpc.php"; 
blogger\.getUsersBlogs "07C72E6970E0FBA5DE21BA9F4800C44534C19870" "admin" 
"*redacted*")
  (if (or fetch (not weblogger-weblog-alist)) (xml-rpc-method-call 
weblogger-server-url (quote blogger\.getUsersBlogs) weblogger-blogger-app-key 
(weblogger-server-username) (weblogger-server-password)) weblogger-weblog-alist)
  (setq weblogger-weblog-alist (if (or fetch ...) (xml-rpc-method-call 
weblogger-server-url ... weblogger-blogger-app-key ... ...) 
weblogger-weblog-alist))
  weblogger-weblog-alist(t)
  (mapcar (lambda (blog) (cdr ...)) (weblogger-weblog-alist fetch))
  weblogger-list-weblog-names(t)
  (mapcar (lambda (weblog) (cons weblog ...)) (weblogger-list-weblog-names 
fetch))
  (let* ((completion-ignore-case t) (seq 0) (webloglist ...)) (if (= 1 ...) 
(caar webloglist) (completing-read "Weblog: " webloglist nil t)))
  (weblogger-weblog-id-from-weblog-name (let* (... ... ...) (if ... ... ...)))
  weblogger-select-weblog(t)
  (if (or prompt (not weblogger-weblog-id)) (weblogger-select-weblog prompt) 
weblogger-weblog-id)
  (progn (when (and ... ...) (weblogger-select-configuration 
weblogger-config-name)) (if (or prompt ...) (weblogger-select-weblog prompt) 
weblogger-weblog-id))
  (setq weblogger-weblog-id (progn (when ... ...) (if ... ... 
weblogger-weblog-id)))
  weblogger-weblog-id(t)
  (let ((user ...) (pass ...) (weblog ...)) (setq weblogger-config-name 
(read-from-minibuffer ... weblogger-config-name)) (let (... ...) (if conf ... 
...)) (weblogger-save-configuration))
  weblogger-setup-weblog()
  call-interactively(weblogger-setup-weblog t nil)
  execute-extended-command(nil)
  call-interactively(execute-extended-command nil nil)



-- 
Laura   (mailto:address@hidden)
(617) 661-8097  233 Broadway, Cambridge, MA 02139   
http://www.laymusic.org/ http://www.serpentpublications.org

I have only one superstition. I touch all the bases when I hit a home
run.

Babe Ruth