[Emacsweblogs] Re: weblogger problem (probably really a doc bug)

[Laura Conrad]

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

    Mark> Second, the URL you should be using is
    Mark> <http://laymusic.org/wordpress/xmlrpc.php>.  I hope to add RSD support
    Mark> for weblogger.el soon.  If weblogger.el already had RSD support, you
    Mark> probably would be connected at this point.

That should be in the documentation.  I did sort of know it, but not
actively.

OK, I'm still getting 400 errors from emacs 22, and from emacs 23 with
the blog I used before, but from emacs 23 with a different and less
fiddled-with wordpress installation, I have actually given it the blog
url and username and password, and had an apparently successful setup.

Unfortunately, then I get a *weblogger-entry* buffer that looks like:

    buffer> Subject: 
    buffer> Keywords:
    buffer> From: admin
    buffer> Newsgroup: Serpent Publications
    buffer> --text follows this line--



When I put anything (in this case "site test") in the "Keywords" line, it says:

    debugger> Debugger entered--Lisp error: (wrong-type-argument stringp 
["site" "test"])
    debugger>   base64-encode-string(["site" "test"])
    debugger>   (list (quote base64) nil (base64-encode-string value))
    debugger>   (list (quote value) nil (list (quote base64) nil 
(base64-encode-string value)))
    debugger>   (list (list (quote value) nil (list ... nil ...)))
    debugger>   (\` ((value nil ...)))
    debugger>   (cond ((xml-rpc-value-booleanp value) (\` ...)) ((listp value) 
(let ... ...)) ((xml-rpc-value-intp value) (\` ...)) ((xml-rpc-value-stringp 
value) (let ... ...)) ((xml-rpc-value-doublep value) (\` ...)) (t (\` ...)))
    debugger>   xml-rpc-value-to-xml-list(["site" "test"])
    debugger>   (car (xml-rpc-value-to-xml-list (cdar value)))
    debugger>   (list (quote member) nil (list (quote name) nil (caar value)) 
(car (xml-rpc-value-to-xml-list ...)))
    debugger>   (list (list (quote member) nil (list ... nil ...) (car ...)))
    debugger>   (\` ((member nil ... ...)))
    debugger>   (setq xmlval (\` (...)) result (if t (append result xmlval) 
(car xmlval)) value (cdr value))
    debugger>   (while (setq xmlval (\` ...) result (if t ... ...) value (cdr 
value)))
    debugger>   (progn (while (setq xmlval ... result ... value ...)) (\` 
(...)))
    debugger>   (if (xml-rpc-value-structp value) (progn (while ...) (\` ...)) 
(while (setq xmlval ... result ... value ...)) (\` (...)))
    debugger>   (let ((result nil) (xmlval nil)) (if (xml-rpc-value-structp 
value) (progn ... ...) (while ...) (\` ...)))
    debugger>   (cond ((xml-rpc-value-booleanp value) (\` ...)) ((listp value) 
(let ... ...)) ((xml-rpc-value-intp value) (\` ...)) ((xml-rpc-value-stringp 
value) (let ... ...)) ((xml-rpc-value-doublep value) (\` ...)) (t (\` ...)))
    debugger>   xml-rpc-value-to-xml-list((("title" . "test of xmlrpc") 
("authorName" . "admin") ("dateCreated") ("mt_tb_ping_urls") 
("mt_convert_breaks") ("link") ("description" . "This is a test of blogging 
directly from emacs.") ("categories" . ["site" "test"])))
    debugger>   (car (xml-rpc-value-to-xml-list p))
    debugger>   (list (quote param) nil (car (xml-rpc-value-to-xml-list p)))
    debugger>   (\` (param nil (\, ...)))
    debugger>   (lambda (p) (\` (param nil ...)))((("title" . "test of xmlrpc") 
("authorName" . "admin") ("dateCreated") ("mt_tb_ping_urls") 
("mt_convert_breaks") ("link") ("description" . "This is a test of blogging 
directly from emacs.") ("categories" . ["site" "test"])))
    debugger>   mapcar((lambda (p) (\` (param nil ...))) ("1" "admin" 
"*redacted*" (("title" . "test of xmlrpc") ("authorName" . "admin") 
("dateCreated") ("mt_tb_ping_urls") ("mt_convert_breaks") ("link") 
("description" . "This is a test of blogging directly from emacs.") 
("categories" . ["site" "test"])) nil))
    debugger>   (let* ((m-name ...) (m-params ...) (m-func-call ...)) (if (> 
xml-rpc-debug 1) (print m-func-call ...)) (xml-rpc-request server-url 
m-func-call async-callback-func))
    debugger>   xml-rpc-method-call-async(nil 
"http://serpentpublications.org/wordpress/xmlrpc.php"; metaWeblog\.newPost ("1" 
"admin" "*redacted*" (("title" . "test of xmlrpc") ("authorName" . "admin") 
("dateCreated") ("mt_tb_ping_urls") ("mt_convert_breaks") ("link") 
("description" . "This is a test of blogging directly from emacs.") 
("categories" . ["site" "test"])) nil))
    debugger>   (let ((response ...)) (cond (... ...) (t ...)))
    debugger>   
xml-rpc-method-call("http://serpentpublications.org/wordpress/xmlrpc.php"; 
metaWeblog\.newPost "1" "admin" "*redacted" (("title" . "test of xmlrpc") 
("authorName" . "admin") ("dateCreated") ("mt_tb_ping_urls") 
("mt_convert_breaks") ("link") ("description" . "This is a test of blogging 
directly from emacs.") ("categories" . ["site" "test"])) nil)
    debugger>   weblogger-api-meta-new-entry((("authorName" . "admin") 
("dateCreated") ("texttype") ("url") ("title" . "test of xmlrpc") ("categories" 
. ["site" "test"]) ("entry-id") ("content" . "This is a test of blogging 
directly from emacs.")) nil)
    debugger>   eval((weblogger-api-meta-new-entry struct publishp))
    debugger>   (cons "entry-id" (eval (\` ...)))
    debugger>   (add-to-list (quote struct) (cons "entry-id" (eval ...)))
    debugger>   (ring-insert weblogger-entry-ring (add-to-list (quote struct) 
(cons "entry-id" ...)))
    debugger>   weblogger-api-new-entry((("authorName" . "admin") 
("dateCreated") ("texttype") ("url") ("title" . "test of xmlrpc") ("categories" 
. ["site" "test"]) ("entry-id") ("content" . "This is a test of blogging 
directly from emacs.")) nil)
    debugger>   (weblogger-entry-setup-headers (weblogger-api-new-entry entry 
publishp))
    debugger>   (cond ((cdr ...) (weblogger-update-ring entry) 
(weblogger-api-send-edits entry publishp) (set-buffer-modified-p nil)) (t 
(weblogger-entry-setup-headers ...)))
    debugger>   (cond ((and ... ...) (weblogger-server-username arg) 
(weblogger-server-password arg) (weblogger-weblog-id arg) (cond ... ...)) (t 
(message "Nothing to post.")))
    debugger>   (let ((entry ...)) (cond (... ... ... ... ...) (t ...)))
    debugger>   (if (not (equal ... *weblogger-entry*)) (message "You are not 
in the *weblogger-entry* buffer.") (let (...) (cond ... ...)))
    debugger>   weblogger-save-entry(nil nil)
    debugger>   weblogger-send-entry()
    debugger>   call-interactively(weblogger-send-entry nil nil)

If I just fill in the "subject" line and write a one-line message, I
get:

    Messages> Contacting host: rpc.weblogs.com:80
    Messages> Reading [text/xml]... 182 bytes of 172 bytes (106%)
    Messages> Reading... done.
    Messages> list: Wrong type argument: stringp, []

With a longer message, I get:


    Messages> Contacting host: rpc.weblogs.com:80
    Messages> Reading [text/xml]... 512 bytes of 504 bytes (102%)
    Messages> Reading... done.
    Messages> if: Error during request: 400


-- 

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

The older I grow the more I hate to write notes, and I trust I have
here written nothing that may make it necessary for me to write
another.

Nathaniel Hawthorne, letter to his sister-in-law Elizabeth Peabody