>>>>> "Mark" == Mark A Hershberger <m...@everybody.org> writes:
Mark> Laura Conrad <lcon...@laymusic.org> 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("�%g...@\n�=%g�%@ � \f
$%g...@t \n�=%g�%@$ � \f
$%g...@t �\n�\"%g...@? �� �\f�
� ����\"&\n%g...@t \n�=%g�%@O � \f
$%g...@t \n�=%g�%@_ � \f
$%g...@t \n�=%g�%@o � \f
$%g...@t �� \" *�%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 #[...
"���p#%g...@�l%g�%@ 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 #[... "���p#%g...@�l%g�%@ 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 #[... "���p#%g...@�l%g�%@ 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:lcon...@laymusic.org)
(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
_______________________________________________
Emacsweblogs mailing list
Emacsweblogs@nongnu.org
http://lists.nongnu.org/mailman/listinfo/emacsweblogs
