webcit-ng/static/js/view_mail.js

   1 // This module handles the view for "mailbox" rooms.
   2 //
   3 // Copyright (c) 2016-2023 by the citadel.org team
   4 //
   5 // This program is open source software.  Use, duplication, or
   6 // disclosure are subject to the GNU General Public License v3.
   7
   8
   9 var displayed_message = 0;                                                      // ID of message currently being displayed
  10 var RefreshMailboxInterval;                                                     // We store our refresh timer here
  11 var highest_mailnum;                                                            // This is used to detect newly arrived mail
  12 var newmail_notify = {
  13         NO  : 0,                                                                // do not perform new mail notifications
  14         YES : 1                                                                 // yes, perform new mail notifications
  15 };
  16
  17
  18 // This is the async back end for mail_delete_selected()
  19 mail_delete_func = async(table, row) => {
  20         let m = parseInt(row["id"].substring(12));                              // derive msgnum from row id
  21
  22         if (is_trash_folder) {
  23                 response = await fetch(
  24                         "/ctdl/r/" + escapeHTMLURI(current_room) + "/" + m,
  25                         {
  26                                 method: "DELETE"                                // If this is the Trash folder, delete permanently
  27                         },
  28                 );
  29         }
  30         else {
  31                 response = await fetch(
  32                         "/ctdl/r/" + escapeHTMLURI(current_room) + "/" + m,
  33                         {
  34                                 method: "MOVE",                                 // Otherwise, move to the Trash folder
  35                                 headers: { "Destination" : "/ctdl/r/_TRASH_" }
  36                         },
  37                 );
  38         }
  39
  40         if (response.ok) {                              // If the server accepted the delete, blank out the message div
  41                 table.deleteRow(row.rowIndex);
  42                 if (m == displayed_message) {
  43                         document.getElementById("ctdl-mailbox-reading-pane").innerHTML = "";
  44                         displayed_message = 0;
  45                 }
  46         }
  47 }
  48
  49
  50 // Delete the selected messages (can be activated by mouse click or keypress)
  51 function mail_delete_selected() {
  52         let table = document.getElementById("ctdl-onscreen-mailbox");
  53         let i, row;
  54         for (i=0; row=table.rows[i]; ++i) {
  55                 if (row.classList.contains("ctdl-mail-selected")) {
  56                         mail_delete_func(table, row);
  57                 }
  58         }
  59 }
  60
  61
  62 // Handler function for keypresses detected while the mail view is displayed.  Mainly for deleting messages.
  63 function mail_keypress(event) {
  64
  65         // If the "ctdl-mailbox-pane" no longer exists, the user has navigated to a different part of the site,
  66         // so cancel the event listener.
  67         try {
  68                 document.getElementById("ctdl-mailbox-pane").innerHTML;
  69         }
  70         catch {
  71                 document.removeEventListener("keydown", mail_keypress);
  72                 return;
  73         }
  74
  75         const key = event.key.toLowerCase();
  76         if (key == "delete") {
  77                 mail_delete_selected();
  78         }
  79
  80 }
  81
  82
  83 // Handler function for dragging email messages to other folders
  84 function mail_dragstart(event) {
  85         let i;
  86         let count = 0;
  87         let table = document.getElementById("ctdl-onscreen-mailbox");
  88         let messages_being_dragged = [] ;
  89
  90         if (event.target.classList.contains("ctdl-mail-selected")) {
  91                 // The row being dragged IS selected.  See if any OTHER rows are selected, and they will come along for the ride.
  92                 for (i=1; row=table.rows[i]; ++i) {
  93                         if (row.classList.contains("ctdl-mail-selected")) {
  94                                 count = count + 1;
  95                                 messages_being_dragged.push(row.id);    // Tell the clipboard what's being moved.
  96                         }
  97                 }
  98         }
  99         else {
 100                 // The row being dragged is NOT selected.  It will be dragged on its own, ignoring the selected rows.
 101                 count = 1;
 102                 messages_being_dragged.push(event.target.id);           // Tell the clipboard what's being moved.
 103         }
 104
 105         // Set the custom drag image to an envelope + number of messages being dragged
 106         d = document.getElementById("ctdl_draggo");
 107         d.innerHTML = "<font size='+2'><i class='fa fa-envelope' style='color: red'></i> " + count + "</font>"
 108         event.dataTransfer.setDragImage(d, 0, 0);
 109         event.dataTransfer.setData("text", messages_being_dragged);
 110 }
 111
 112
 113 // Render reply address for a message (FIXME figure out how to deal with "reply-to:")
 114 function reply_addr(msg) {
 115         //if (msg.locl) {
 116                 //return([msg.from]);
 117         //}
 118         //else {
 119                 return([msg.from + " &lt;" + msg.rfca + "&gt;"]);
 120         //}
 121 }
 122
 123
 124 // Render the To: recipients for a reply-all operation
 125 function replyall_to(msg) {
 126         return([...reply_addr(msg), ...msg.rcpt]);
 127 }
 128
 129
 130 // Render a message into the mailbox view
 131 // (We want the message number and the message itself because we need to keep the msgnum for reply purposes)
 132 function mail_render_one(msgnum, msg, target_div, include_controls) {
 133         let div = "";
 134         try {
 135                 outmsg =
 136                   "<div class=\"ctdl-mmsg-wrapper\">"                           // begin message wrapper
 137                 ;
 138
 139                 if (include_controls) {                                         // omit controls if this is a pull quote
 140                         outmsg +=
 141                           render_userpic(msg.from)                              // user avatar
 142                         + "<div class=\"ctdl-mmsg-content\">"                   // begin content
 143                         + "<div class=\"ctdl-msg-header\">"                     // begin header
 144                         + "<span class=\"ctdl-msg-header-info\">"               // begin header info on left side
 145                         + render_msg_author(msg, views.VIEW_MAILBOX)
 146                         + "<span class=\"ctdl-msgdate\">"
 147                         + string_timestamp(msg.time,0)
 148                         + "</span>"                                             // end msgdate
 149                         + "</span>"                                             // end header info on left side
 150                         + "<span class=\"ctdl-msg-header-buttons\">"            // begin buttons on right side
 151
 152                         + "<span class=\"ctdl-msg-button\">"                    // Reply (mail is always Quoted)
 153                         + "<a href=\"javascript:mail_compose(true,'"+msg.wefw+"','"+msgnum+"', reply_addr(msg), [], 'Re: '+msg.subj);\">"
 154                         + "<i class=\"fa fa-reply\"></i> "
 155                         + _("Reply")
 156                         + "</a></span>"
 157
 158                         + "<span class=\"ctdl-msg-button\">"                    // Reply-All (mail is always Quoted)
 159                         + "<a href=\"javascript:mail_compose(true,'"+msg.wefw+"','"+msgnum+"', replyall_to(msg), msg.cccc, 'Re: '+msg.subj);\">"
 160                         + "<i class=\"fa fa-reply-all\"></i> "
 161                         + _("ReplyAll")
 162                         + "</a></span>";
 163
 164                         if (can_delete_messages) {
 165                                 outmsg +=
 166                                 "<span class=\"ctdl-msg-button\">"
 167                                 + "<a href=\"javascript:forum_delete_message('"+div+"','"+msg.msgnum+"');\">"
 168                                 + "<i class=\"fa fa-trash\"></i> "
 169                                 + _("Delete")
 170                                 + "</a></span>";
 171                         }
 172
 173                         outmsg +=
 174                           "</span>";                                            // end buttons on right side
 175
 176                         // Display the To: recipients, if any are present
 177                         if (msg.rcpt) {
 178                                 outmsg += "<br><span>" + _("To:") + " ";
 179                                 for (let r=0; r<msg.rcpt.length; ++r) {
 180                                         if (r != 0) {
 181                                                 outmsg += ", ";
 182                                         }
 183                                         outmsg += escapeHTML(msg.rcpt[r]);
 184                                 }
 185                                 outmsg += "</span>";
 186                         }
 187
 188                         // Display the Cc: recipients, if any are present
 189                         if (msg.cccc) {
 190                                 outmsg += "<br><span>" + _("Cc:") + " ";
 191                                 for (let r=0; r<msg.cccc.length; ++r) {
 192                                         if (r != 0) {
 193                                                 outmsg += ", ";
 194                                         }
 195                                         outmsg += escapeHTML(msg.cccc[r]);
 196                                 }
 197                                 outmsg += "</span>";
 198                         }
 199
 200                         // Display a subject line, but only if the message has a subject (internal Citadel messages often don't)
 201                         if (msg.subj) {
 202                                 outmsg +=
 203                                 "<br><span class=\"ctdl-msgsubject\">" + msg.subj + "</span>";
 204                         }
 205
 206                         outmsg +=
 207                           "</div>";                                             // end header
 208                 }
 209
 210                 // Display attachments, if any are present
 211                 if (msg.part) {
 212                         let display_attachments = 0;
 213                         for (let r=0; r<msg.part.length; ++r) {
 214                                 if (msg.part[r].disp == "attachment") {
 215                                         if (display_attachments == 0) {
 216                                                 outmsg += "<ul>";
 217                                         }
 218                                         display_attachments += 1;
 219                                         outmsg += "<li><i class=\"fa fa-paperclip\"></i>&nbsp;" + msg.part[r].partnum + ": " + msg.part[r].filename + "</li>";
 220                                 }
 221                         }
 222                         if (display_attachments > 0) {
 223                                 outmsg += "</ul><br>";
 224                         }
 225                 }
 226
 227
 228                 outmsg +=
 229                   "<div class=\"ctdl-msg-body\" id=\"" + div + "_body\">"       // begin body
 230                 + msg.text
 231                 + "</div>"                                                      // end body
 232                 + "</div>"                                                      // end content
 233                 + "</div>"                                                      // end wrapper
 234                 ;
 235         }
 236         catch(err) {
 237                 outmsg = "<div class=\"ctdl-mmsg-wrapper\">" + err.message + "</div>";
 238         }
 239
 240         target_div.innerHTML = outmsg;
 241 }
 242
 243
 244 // display an individual message (note: this wants an actual div object, not a string containing the name of a div)
 245 function mail_display_message(msgnum, target_div, include_controls) {
 246         url = "/ctdl/r/" + escapeHTMLURI(current_room) + "/" + msgnum + "/json";
 247         mail_fetch_msg = async() => {
 248                 response = await fetch(url);
 249                 msg = await(response.json());
 250                 if (response.ok) {
 251                         mail_render_one(msgnum, msg, target_div, include_controls);
 252                 }
 253         }
 254         mail_fetch_msg();
 255 }
 256
 257
 258 // A message has been selected...
 259 function click_message(event, msgnum) {
 260         var table = document.getElementById("ctdl-onscreen-mailbox");
 261         var i, m, row;
 262
 263         // ctrl + click = toggle an individual message without changing existing selection
 264         if (event.ctrlKey) {
 265                 document.getElementById("ctdl-msgsum-" + msgnum).classList.toggle("ctdl-mail-selected");
 266         }
 267
 268         // shift + click = select a range of messages (start with row 1 because row 0 is the header)
 269         else if (event.shiftKey) {
 270                 for (i=1; row=table.rows[i]; ++i) {
 271                         m = parseInt(row["id"].substring(12));                          // derive msgnum from row id
 272                         if (
 273                                 ((msgnum >= displayed_message) && (m >= displayed_message) && (m <= msgnum))
 274                                 || ((msgnum <= displayed_message) && (m <= displayed_message) && (m >= msgnum))
 275                         ) {
 276                                 row.classList.add("ctdl-mail-selected");
 277                         }
 278                         else {
 279                                 row.classList.remove("ctdl-mail-selected");
 280                         }
 281                 }
 282         }
 283
 284         // click + no modifiers = select one message and unselect all others (start with row 1 because row 0 is the header)
 285         else {
 286                 for (i=1; row=table.rows[i]; ++i) {
 287                         if (row["id"] == "ctdl-msgsum-" + msgnum) {
 288                                 row.classList.add("ctdl-mail-selected");
 289                         }
 290                         else {
 291                                 row.classList.remove("ctdl-mail-selected");
 292                         }
 293                 }
 294         }
 295
 296         // display the message if it isn't already displayed
 297         if (displayed_message != msgnum) {
 298                 displayed_message = msgnum;
 299                 mail_display_message(msgnum, document.getElementById("ctdl-mailbox-reading-pane"), 1);
 300         }
 301 }
 302
 303
 304 // render one row in the mailbox table (this could be called from one of several places)
 305 function mail_render_row(msg, is_selected) {
 306         let row = "<tr "
 307                 + "id=\"ctdl-msgsum-" + msg["msgnum"] + "\" "
 308                 + (is_selected ? "class=\"ctdl-mail-selected\" " : "")
 309                 + "onClick=\"click_message(event," + msg["msgnum"] + ");\""
 310                 + "onselectstart=\"return false;\" "
 311                 + "draggable=\"true\" "
 312                 + "ondragstart=\"mail_dragstart(event)\" "
 313                 + ">"
 314                 + "<td class=\"ctdl-mail-subject\">" + msg["subject"] + "</td>"
 315                 + "<td class=\"ctdl-mail-sender\">" + msg["author"] + "</td>"
 316                 + "<td class=\"ctdl-mail-date\">" + string_timestamp(msg["time"],1) + "</td>"
 317                 + "<td class=\"ctdl-mail-msgnum\">" + msg["msgnum"] + "</td>"
 318                 + "</tr>";
 319         return(row);
 320 }
 321
 322
 323 // RENDERER FOR THIS VIEW
 324 function view_render_mail() {
 325         // Put the "enter new message" button into the topbar
 326         document.getElementById("ctdl-newmsg-button").innerHTML = "<i class=\"fa fa-edit\"></i>" + _("Write mail");
 327         document.getElementById("ctdl-newmsg-button").style.display = "block";
 328
 329         // Put the "delete message(s)" button into the topbar
 330         let d = document.getElementById("ctdl-delete-button");
 331         d.innerHTML = "<i class=\"fa fa-trash\"></i>" + _("Delete");
 332         d.style.display = "block";
 333         //d.addEventListener("click", mail_delete_selected);
 334
 335         document.getElementById("ctdl-main").innerHTML
 336                 = "<div id=\"ctdl-mailbox-grid-container\" class=\"ctdl-mailbox-grid-container\">"
 337                 + "<div id=\"ctdl-mailbox-pane\" class=\"ctdl-mailbox-pane\"></div>"
 338                 + "<div id=\"ctdl-mailbox-reading-pane\" class=\"ctdl-mailbox-reading-pane\"></div>"
 339                 + "</div>"
 340         ;
 341
 342         highest_mailnum = 0;                                    // Keep track of highest message number to track newly arrived messages
 343         render_mailbox_display(newmail_notify.NO);
 344         try {                                                   // if this was already set up, clear it so there aren't multiple
 345                 clearInterval(RefreshMailboxInterval);
 346         }
 347         catch {
 348         }
 349         RefreshMailboxInterval = setInterval(refresh_mail_display, 10000);
 350 }
 351
 352
 353 // Refresh the mailbox, either for the first time or whenever needed
 354 function refresh_mail_display() {
 355         // If the "ctdl-mailbox-pane" no longer exists, the user has navigated to a different part of the site,
 356         // so cancel the refresh.
 357         try {
 358                 document.getElementById("ctdl-mailbox-pane").innerHTML;
 359         }
 360         catch {
 361                 clearInterval(RefreshMailboxInterval);
 362                 return;
 363         }
 364
 365         // Ask the server if the room has been written to since our last look at it.
 366         url = "/ctdl/r/" + escapeHTMLURI(current_room) + "/stat";
 367         fetch_stat = async() => {
 368                 response = await fetch(url);
 369                 stat = await(response.json());
 370                 if (stat.room_mtime > room_mtime) {                     // FIXME commented out to force refreshes
 371                         room_mtime = stat.room_mtime;
 372                         render_mailbox_display(newmail_notify.YES);
 373                 }
 374         }
 375         fetch_stat();
 376 }
 377
 378
 379 // This is where the rendering of the message list in the mailbox view is performed.
 380 // Set notify to newmail_notify.NO or newmail_notify.YES depending on whether we are interested in the arrival of new messages.
 381 function render_mailbox_display(notify) {
 382
 383         url = "/ctdl/r/" + escapeHTMLURI(current_room) + "/mailbox";
 384         fetch_mailbox = async() => {
 385                 response = await fetch(url);
 386                 msgs = await(response.json());
 387                 if (response.ok) {
 388                         var previously_selected = [];
 389                         var oldtable = document.getElementById("ctdl-onscreen-mailbox");
 390                         var i, row;
 391
 392                         // If one or more messages was already selected, remember them so we can re-select them
 393                         if ( (displayed_message > 0) && (oldtable) ) {
 394                                 for (i=0; row=oldtable.rows[i]; ++i) {
 395                                         if (row.classList.contains("ctdl-mail-selected")) {
 396                                                 previously_selected.push(parseInt(row["id"].substring(12)));
 397                                         }
 398                                 }
 399                         }
 400
 401                         // begin rendering the mailbox table
 402                         box =   "<table id=\"ctdl-onscreen-mailbox\" class=\"ctdl-mailbox-table\" width=100%><tr>"
 403                                 + "<th>" + _("Subject") + "</th>"
 404                                 + "<th>" + _("Sender") + "</th>"
 405                                 + "<th>" + _("Date") + "</th>"
 406                                 + "<th>#</th>"
 407                                 + "</tr>";
 408
 409                         for (let i=0; i<msgs.length; ++i) {
 410                                 let m = parseInt(msgs[i].msgnum);
 411                                 let s = (previously_selected.includes(m));
 412                                 box += mail_render_row(msgs[i], s);
 413                                 if (m > highest_mailnum) {
 414                                         highest_mailnum = m;
 415                                 }
 416                         }
 417
 418                         box +=  "</table>";
 419                         document.getElementById("ctdl-mailbox-pane").innerHTML = box;
 420                         document.addEventListener("keydown", mail_keypress);
 421                 }
 422         }
 423         fetch_mailbox();
 424 }
 425
 426
 427 // Compose a new mail message (called by the Reply button here, or by the dispatcher in views.js)
 428 function mail_compose(is_quoted, references, quoted_msgnum, m_to, m_cc, m_subject) {
 429         // m_to will be an array of zero or more recipients for the To: field.  Convert it to a string.
 430         if (m_to) {
 431                 m_to = Array.from(new Set(m_to));       // remove dupes
 432                 m_to_str = "";
 433                 for (i=0; i<m_to.length; ++i) {
 434                         if (i > 0) {
 435                                 m_to_str += ", ";
 436                         }
 437                         m_to_str += m_to[i].replaceAll("<", "&lt;").replaceAll(">", "&gt;");
 438                 }
 439         }
 440         else {
 441                 m_to_str = "";
 442         }
 443
 444         // m_to will be an array of zero or more recipients for the Cc: field.  Convert it to a string.
 445         if (m_cc) {
 446                 m_cc = Array.from(new Set(m_cc));       // remove dupes
 447                 m_cc_str = "";
 448                 for (i=0; i<m_cc.length; ++i) {
 449                         if (i > 0) {
 450                                 m_cc_str += ", ";
 451                         }
 452                         m_cc_str += m_cc[i].replaceAll("<", "&lt;").replaceAll(">", "&gt;");
 453                 }
 454         }
 455         else {
 456                 m_cc_str = "";
 457         }
 458
 459         quoted_div_name = randomString();
 460
 461         // Make the "Write mail" button disappear.  We're already there!
 462         document.getElementById("ctdl-newmsg-button").style.display = "none";
 463
 464         // is_quoted    true or false depending on whether the user selected "reply quoted" (is this appropriate for mail?)
 465         // references   list of references, be sure to use this in a reply
 466         // msgid        if a reply, the msgid of the most recent message in the chain, the one to which we are replying
 467
 468         // Now display the screen.
 469         compose_screen =
 470                 // Hidden values that we are storing right here in the document tree for later
 471                   "<input id=\"ctdl_mc_is_quoted\" style=\"display:none\" value=\"" + is_quoted + "\"></input>"
 472                 + "<input id=\"ctdl_mc_references\" style=\"display:none\" value=\"" + references + "\"></input>"
 473
 474                 // Header fields, the composition window, and the button bar are arranged using a Grid layout.
 475                 + "<div id=\"ctdl-compose-mail\" class=\"ctdl-compose-mail\">"
 476
 477                 // Visible To: field, plus a box to make the CC/BCC lines appear
 478                 + "<div class=\"ctdl-compose-to-label\">" + _("To:") + "</div>"
 479                 + "<div class=\"ctdl-compose-to-line\">"
 480                 + "<div class=\"ctdl-compose-to-field\" id=\"ctdl-compose-to-field\" contenteditable=\"true\">" + m_to_str + "</div>"
 481                 + "<div class=\"ctdl-cc-bcc-buttons ctdl-msg-button\" id=\"ctdl-cc-bcc-buttons\" "
 482                 + "onClick=\"make_cc_bcc_visible()\">"
 483                 + _("CC:") + "/" + _("BCC:") + "</div>"
 484                 + "</div>"
 485
 486                 // CC/BCC
 487                 + "<div class=\"ctdl-compose-cc-label\" id=\"ctdl-compose-cc-label\">" + _("CC:") + "</div>"
 488                 + "<div class=\"ctdl-compose-cc-field\" id=\"ctdl-compose-cc-field\" contenteditable=\"true\">" + m_cc_str + "</div>"
 489                 + "<div class=\"ctdl-compose-bcc-label\" id=\"ctdl-compose-bcc-label\">" + _("BCC:") + "</div>"
 490                 + "<div class=\"ctdl-compose-bcc-field\" id=\"ctdl-compose-bcc-field\" contenteditable=\"true\"></div>"
 491
 492                 // Visible subject field
 493                 + "<div class=\"ctdl-compose-subject-label\">" + _("Subject:") + "</div>"
 494                 + "<div class=\"ctdl-compose-subject-field\" id=\"ctdl-compose-subject-field\" contenteditable=\"true\">" + m_subject + "</div>"
 495
 496                 // Message composition box
 497                 + "<div class=\"ctdl-compose-message-box\" id=\"ctdl-editor-body\" contenteditable=\"true\">"
 498         ;
 499
 500         if (is_quoted) {
 501                 compose_screen += "<br><br><blockquote><div id=\"" + quoted_div_name + "\"></div></blockquote>";
 502         }
 503
 504         compose_screen +=
 505                   "</div>"
 506
 507                 // The button bar is a Grid element, and is also a Flexbox container.
 508                 + "<div class=\"ctdl-compose-toolbar\">"
 509                 + "<span class=\"ctdl-msg-button\" onclick=\"mail_send_message()\"><i class=\"fa fa-paper-plane\" style=\"color:green\"></i> " + _("Send message") + "</span>"
 510                 + "<span class=\"ctdl-msg-button\">" + _("Save to Drafts") + "</span>"
 511                 + "<span class=\"ctdl-msg-button\">" + _("Attachments:") + " 0" + "</span>"
 512                 + "<span class=\"ctdl-msg-button\">" + _("Contacts") + "</span>"
 513                 + "<span class=\"ctdl-msg-button\" onClick=\"gotoroom(current_room)\"><i class=\"fa fa-trash\" style=\"color:red\"></i> " + _("Cancel") + "</span>"
 514                 + "</div>"
 515         ;
 516
 517         document.getElementById("ctdl-main").innerHTML = compose_screen;
 518         mail_display_message(quoted_msgnum, document.getElementById(quoted_div_name), 0);
 519         if (m_cc) {
 520                 document.getElementById("ctdl-compose-cc-label").style.display = "block";
 521                 document.getElementById("ctdl-compose-cc-field").style.display = "block";
 522         }
 523 }
 524
 525
 526 // Called when the user clicks the button to make the hidden "CC" and "BCC" lines appear.
 527 // It is also called automatically during a Reply when CC is pre-populated.
 528 function make_cc_bcc_visible() {
 529         document.getElementById("ctdl-cc-bcc-buttons").style.display = "none";
 530         document.getElementById("ctdl-compose-bcc-label").style.display = "block";
 531         document.getElementById("ctdl-compose-bcc-field").style.display = "block";
 532 }
 533
 534
 535 // Helper function for mail_send_messages() to extract and decode metadata values.
 536 function msm_field(element_name, separator) {
 537         let s1 = document.getElementById(element_name).innerHTML;
 538         let s2 = s1.replaceAll("|",separator);          // Replace "|" with "!" because "|" is a field separator in Citadel
 539         let s3 = decodeURI(s2);
 540         let s4 = document.createElement("textarea");    // This One Weird Trick Unescapes All HTML Entities
 541         s4.innerHTML = s3;
 542         let s5 = s4.value;
 543         return(s5);
 544 }
 545
 546
 547 // Save the posted message to the server
 548 function mail_send_message() {
 549
 550         document.body.style.cursor = "wait";
 551         let url = "/ctdl/r/" + escapeHTMLURI(current_room)
 552                 + "/dummy_name_for_new_mail"
 553                 + "?wefw="      + msm_field("ctdl_mc_references", "!")                          // references (if present)
 554                 + "&subj="      + msm_field("ctdl-compose-subject-field", " ")                  // subject (if present)
 555                 + "&mailto="    + msm_field("ctdl-compose-to-field", ",")                       // To: (required)
 556                 + "&mailcc="    + msm_field("ctdl-compose-cc-field", ",")                       // Cc: (if present)
 557                 + "&mailbcc="   + msm_field("ctdl-compose-bcc-field", ",")                      // Bcc: (if present)
 558         ;
 559         boundary = randomString();
 560         body_text =
 561                 "--" + boundary + "\r\n"
 562                 + "Content-type: text/html\r\n"
 563                 + "Content-transfer-encoding: quoted-printable\r\n"
 564                 + "\r\n"
 565                 + quoted_printable_encode(
 566                         "<html><body>" + document.getElementById("ctdl-editor-body").innerHTML + "</body></html>"
 567                 ) + "\r\n"
 568                 + "--" + boundary + "--\r\n"
 569         ;
 570
 571         var request = new XMLHttpRequest();
 572         request.open("PUT", url, true);
 573         request.setRequestHeader("Content-type", "multipart/mixed; boundary=\"" + boundary + "\"");
 574         request.onreadystatechange = function() {
 575                 if (request.readyState == 4) {
 576                         document.body.style.cursor = "default";
 577                         if (Math.trunc(request.status / 100) == 2) {
 578                                 headers = request.getAllResponseHeaders().split("\n");
 579                                 for (var i in headers) {
 580                                         if (headers[i].startsWith("etag: ")) {
 581                                                 new_msg_num = headers[i].split(" ")[1];
 582                                         }
 583                                 }
 584
 585                                 // After saving the message, go back to the mailbox view.
 586                                 gotoroom(current_room);
 587
 588                         }
 589                         else {
 590                                 error_message = request.responseText;
 591                                 if (error_message.length == 0) {
 592                                         error_message = _("An error has occurred.");
 593                                 }
 594                                 alert(error_message);                                           // editor remains open
 595                         }
 596                 }
 597         };
 598         request.send(body_text);
 599 }